Permalink
Browse files

sbcl mop

  • Loading branch information...
1 parent c1d7753 commit f074f210b2f965f38c5d6d99675ada3c34f372a4 @kennytilton committed Aug 27, 2010
Showing with 5 additions and 3 deletions.
  1. +5 −3 detritus.lisp
View
@@ -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)

0 comments on commit f074f21

Please sign in to comment.