🚀 go-pugleaf

Oh yes, another thing about the Symbolics Bug/feature with :metaclass

;;; Sun Common Lisp, Development Environment 4.0.1, 6 July 1990
;;; Sun-4 Version for SunOS 4.0.x and sunOS 4.1
;;;
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990
;;;            by Sun Microsystems, Inc.,  All Rights Reserved
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990
;;;            by Lucid, Inc., All Rights Reserved
;;; This software product contains confidential and trade secret
;;; information belonging to Sun Microsystems, Inc.  It may not be copied
;;; for any reason other than for archival and backup purposes.
;;;
;;; Sun, Sun-4, and Sun Common Lisp are trademarks of Sun Microsystems Inc.

;;; Loading source file "/home/zaphod/egdorf/lisp-init.lisp"
> (defclass CLASS-WITH-INSTANCES (standard-class)
  ((instances
    :initform nil
    :accessor class-instances)))
#<Standard-Class CLASS-WITH-INSTANCES>
> (defmethod MAKE-INSTANCE :around ((class CLASS-WITH-INSTANCES) &rest ignore)
	   (let ((instance (call-next-method)))
	     (push instance (class-instances class))
	     instance))
#<Init-Method MAKE-INSTANCE :AROUND (CLASS-WITH-INSTANCES)>
> (defclass class-with-instances-test ()
  ()
  (:metaclass CLASS-WITH-INSTANCES))
#<Class-With-Instances CLASS-WITH-INSTANCES-TEST>
> (defun foo ()
  (make-instance 'class-with-instances-test))
FOO
> (make-instance 'class-with-instances-test)
#<Class-With-Instances-Test #X166748E>
> (class-instances (find-class 'class-with-instances-test))
(#<Class-With-Instances-Test #X166748E>)
> (foo)
#<Class-With-Instances-Test #X1671AC6>
> (class-instances (find-class 'class-with-instances-test))
(#<Class-With-Instances-Test #X1671AC6> #<Class-With-Instances-Test #X166748E>)
>

Works for me...
And running it all from gnu emacs with some local additions to cmulisp mode,
I could just cut and paste to this message.
I don't miss zmacs at all.

					Skip Egdorf
					hwe@lanl.gov