Changeset 7753


Ignore:
Timestamp:
Nov 26, 2007, 11:33:19 AM (12 years ago)
Author:
gb
Message:

Add "extra" field to CLASS-CELL. (Free, due to alignment conventions.)

File:
1 edited

Legend:

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

    r7751 r7753  
    13101310  class-cell-class
    13111311  class-cell-instantiate
    1312   )
    1313 
    1314 (defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance))
     1312  class-cell-extra                      ; wrapper in some cases
     1313  )
     1314
     1315(defmacro make-class-cell (name) `(%istruct 'class-cell ,name nil '%make-instance nil))
    13151316
    13161317
Note: See TracChangeset for help on using the changeset viewer.