----- Original Message ----- From: Luke Crook luke@balooga.com Date: Tuesday, June 21, 2005 8:56 pm Subject: Re: Where's the MOP?

ktilton@nyc.rr.com writes:

...

Does this help? Or, does it not work?:

(defpackage :cells ... #+cormanlisp #:common-lisp ...

 #-(or allegro clisp cmu cormanlisp lispworks mcl sbcl)

...

Making progress, thanks.

(pushnew #p"C:/Lisp/libs/" asdf-util:*source-dirs* :test #'equal) (#P"C:\Lisp\libs") (asdf:oos 'asdf:load-op :cells) ; loading system definition from #P"C:\Lisp\libs\cells_2.0\cells.asd" ; into #<PACKAGE "ASDF7512"> ; registering #<SYSTEM :CELLS #xF21D38> as CELLS ;;; Warning: the following function(s) are called from forms ;;; in file "#P"C:\Lisp\libs\cells_2.0\cell-types.lisp"" but have not yet been defined: ;;; C-BREAK ;;; C-OPTIMIZE-AWAY?! ;;; MD-STATE ;;; C-CURRENTP ;;; An error occurred in function MACROEXPAND: ;;; Error: There is no SETF expansion method defined for (MD-SLOT- CELL-TYPE CLASS-NAME SLOT-NAME)

This...:

(defun (setf md-slot-cell-type) (new-type class-name slot-name) (let ((entry (assoc slot-name (get class-name :cell-types)))) (if entry (setf (cdr entry) new-type) (push (cons slot-name new-type) (get class-name :cell-types)))))

...is found in model-object.lisp. Possibly there is a missing dependency in cells.asd. Just make sure whichever file is failing to compile has a dependency directly ot indirectly on model-object.lisp.

FYI, this happens because I do not use ASDF in my regular work, so the cells.asd does not get heavy use.

Mind you, I am only guessing. Possibly Corman Lisp has a problem with (defun (setf ....)). You should check to see if other symbols from model-object.lisp exist, or its FASL, or in some way determine if model-object has been both compileed and loaded.

If so, and if the setter still is not acknowledged, there might be a problem with Corman.

kt