Please sign in to comment.
- Loading branch information...
|@@ -37,9 +37,11 @@ See the Lisp Lesser GNU Public License for more details.|
|(defun class-proto (c)|
|(let ((cc (find-class c)))|
|- (when cc|
|- (finalize-inheritance cc))|
|- (mop::class-prototype cc)))|
|+ ;; all this was conditional on c being found, but if it isn't the find-class errors as coded so|
|+ ;; let's take out the meaningless condition and see what happens|
|+ (finalize-inheritance cc)|
|+ #-sbcl(mop::class-prototype cc)|
|+ #+sbcl(sb-mop:class-prototype cc)))|
|(defun brk (&rest args)|
|#+its-alive! (apply 'error args)|