Changeset 7738


Ignore:
Timestamp:
Nov 25, 2007, 2:33:20 AM (12 years ago)
Author:
gb
Message:

New CLASS-CELL stuff. (use %SVREF, eventually.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/lispequ.lisp

    r7624 r7738  
    13031303  open-binary
    13041304  file-stream)
    1305  
     1305
     1306
     1307(def-accessors (class-cell) uvref
     1308  nil                                   ; 'class-cell
     1309  class-cell-name
     1310  class-cell-class
     1311  class-cell-instantiate
     1312  )
     1313
     1314(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance))
    13061315
    13071316
Note: See TracChangeset for help on using the changeset viewer.