* 40,47 **
;; 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(#-ccl(mop::class-prototype cc)
! #+ccl(class-prototype cc))
+sbcl(sb-mop:class-prototype cc)))
(defun brk (&rest args)
--- 40,46 ----
;; 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)
Hallo, cells works with ccl as soon as it is modified to accept ccl among the lisps.
*\ cells.asd.orig 2013-01-16 19:41:59.492011140 +0100 --- cells.asd 2013-01-16 19:41:09.371762640 +0100
* 1,6 ** ;;;; -- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 --
! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl) (progn (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
--- 1,6 ---- ;;;; -- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 --
! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl ccl) (progn (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
*\ defpackage.lisp 2013-01-16 19:41:09.371762640 +0100 --- defpackage.lisp.orig 2013-01-16 19:41:59.492011140 +0100
* 36,42 **
+openmcl-partial-mop #:openmcl-mop
+(and mcl (not openmcl-partial-mop)) #:ccl
! #-(or allegro clisp cmu cormanlisp lispworks mcl sbcl ccl)
.(cerror "Provide a package name."
"Don't know how to find the MOP package for this Lisp.")
--- 36,42 ----
+openmcl-partial-mop #:openmcl-mop
+(and mcl (not openmcl-partial-mop)) #:ccl
! #-(or allegro clisp cmu cormanlisp lispworks mcl sbcl)
.(cerror "Provide a package name."
"Don't know how to find the MOP package for this Lisp.")
*\ detritus.lisp 2013-01-16 19:40:59.511713666 +0100 --- detritus.lisp.orig 2013-01-16 19:41:42.715927414 +0100
* 40,47 ** ;; 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(#-ccl(mop::class-prototype cc) ! #+ccl(class-prototype cc))
+sbcl(sb-mop:class-prototype cc)))
(defun brk (&rest args) --- 40,46 ---- ;; 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)
*\ utils-kt.asd 2013-01-16 19:40:59.511713666 +0100 --- utils-kt.asd.orig 2013-01-16 19:41:42.715927414 +0100
* 6,12 ** ;;;(operate 'load-op :asdf-aclproj) ;;;(use-package :asdf-aclproj)
! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl ccl)
(asdf:defsystem :utils-kt :name "utils-kt" --- 6,12 ---- ;;;(operate 'load-op :asdf-aclproj) ;;;(use-package :asdf-aclproj)
! #+(or allegro lispworks cmu mcl clisp cormanlisp sbcl scl)
(asdf:defsystem :utils-kt :name "utils-kt"