Changeset 9329


Ignore:
Timestamp:
Apr 29, 2008, 2:54:48 PM (11 years ago)
Author:
gz
Message:

Bring back structure slot types

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/defstruct-lds.lisp

    r9249 r9329  
    221221            ;; To do: check for multiple/incompatible options.
    222222            (cond ((eq (%car args) :type)
    223                    #+defstruct-slot-types (setq slot-type (%cadr args)))
     223                   (setq slot-type (%cadr args)))
    224224                  ((eq (%car args) :read-only)
    225225                   (setq read-only (%cadr args)))
Note: See TracChangeset for help on using the changeset viewer.