From: ··············@yahoo.com
Subject: Possible CMUCL CLOS class redefinition bug.
Date: Fri, 25 Dec 1998 00:00:00 +0000
Message-ID: <75vctk$1ra$1@nnrp1.dejanews.com>

Hmmmm...

Here's an ACL5 session:

USER(8): (defclass programmer ()
	   ((name :initarg :name)
	    (salary :initarg :salary)
	    (favorite-language :initarg :favorite-language
			       :initform "Common Lisp")))
#<STANDARD-CLASS PROGRAMMER>
USER(9): (setf robert (make-instance 'programmer))
#<PROGRAMMER @ #x204e139a>
USER(10): (slot-value robert 'favorite-language)
"Common Lisp"
USER(11): (defclass programmer ()
	   ((name :initarg :name)
	    (salary :initarg :salary)
	    (favorite-language :initarg :favorite-language
			       :initform "Common Lisp")
	    (favorite-object-system :initarg :favorite-object-system
				    :initform "CLOS")))
#<STANDARD-CLASS PROGRAMMER>
USER(12): (slot-value robert 'favorite-object-system)
"CLOS"

Now here's the same session in CMUCL:

(defclass programmer ()
	   ((name :initarg :name)
	    (salary :initarg :salary)
	    (favorite-language :initarg :favorite-language
			       :initform "Common Lisp")))
#<STANDARD-CLASS PROGRAMMER {481535C5}>
* (setf robert (make-instance 'programmer))
Warning:  Declaring ROBERT special.

#<PROGRAMMER {48156A7D}>
* (slot-value robert 'favorite-language)
"Common Lisp"
* (defclass programmer ()
	   ((name :initarg :name)
	    (salary :initarg :salary)
	    (favorite-language :initarg :favorite-language
			       :initform "Common Lisp")
	    (favorite-object-system :initarg :favorite-object-system
				    :initform "CLOS")))
#<STANDARD-CLASS PROGRAMMER {481535C5}>
* (slot-value robert 'favorite-object-system)
0

So how come it's not "CLOS" like in ACL? My reading so far indicates that the
ACL behavior is standard.

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own