/[cmucl]/src/pcl/defs.lisp
ViewVC logotype

Diff of /src/pcl/defs.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10.1.5 by ram, Fri Oct 28 21:15:01 1994 UTC revision 1.10.1.6 by ram, Fri Oct 28 21:20:58 1994 UTC
# Line 629  Line 629 
629  (defclass structure-object (slot-object) ()  (defclass structure-object (slot-object) ()
630    (:metaclass structure-class))    (:metaclass structure-class))
631    
632  #-cmu17  (defstruct (#-cmu17 structure-object #+cmu17 dead-beef-structure-object
 (defstruct (structure-object  
633               (:constructor |STRUCTURE-OBJECT class constructor|)))               (:constructor |STRUCTURE-OBJECT class constructor|)))
634    
635    
636  (defclass standard-object (slot-object) ())  (defclass standard-object (slot-object) ())
637    
638  (defclass metaobject (standard-object) ())  (defclass metaobject (standard-object) ())

Legend:
Removed from v.1.10.1.5  
changed lines
  Added in v.1.10.1.6

  ViewVC Help
Powered by ViewVC 1.1.5