🚀 go-pugleaf

> *  While loading binary of BRAID we got the errors
> 
>       "Attempt to intern T class predicate in locked package COMMON-LISP" and
>       "Attempt to intern RATIO class predicate in locked package COMMON-LISP"

In defs.lisp, change the definition of make-class-predicate-name to:
(defun make-class-predicate-name (name)
  (intern (format nil "~A::~A class predicate"
		  (package-name (symbol-package name))
		  name)
	  *the-pcl-package*))

To make debugging easier, change the definition of print-std-instance
in low.lisp to:
(defun print-std-instance (instance stream depth) ;A temporary definition used
  (declare (ignore depth))		          ;for debugging the bootstrap
  (printing-random-thing (instance stream)        ;code of PCL (See high.lisp).
    (let ((class (class-of instance)))
      (if (or (eq class (find-class 'standard-class nil))
	      (eq class (find-class 'funcallable-standard-class nil))
	      (eq class (find-class 'built-in-class nil)))
	  (format stream "~a ~a" (early-class-name class)
		  (early-class-name instance))
	  (format stream "~a" (early-class-name class))))))

and add this to braid.lisp:
(defun early-class-name (class)
  (bootstrap-get-slot 'class class 'name))

and (to be a bit safer), change the uses of std-instance-slots within
bootstrap-get-slot and bootstrap-set-slot (braid.lisp) to get-slots.


I think that the next thing I would want to know is the name of the
function that called slot-missing, or, better yet, a backtrace.

---------
Richard Harris