cells works with ccl with small mods

[oivulf]

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"