Changeset 10426 for trunk/source/library


Ignore:
Timestamp:
Aug 11, 2008, 3:49:48 AM (11 years ago)
Author:
gb
Message:

Merge a lot of the CLOS/type-system changes from working-0711 branch
into trunk. Todo: compiler-macros for those changes.

Have -not- yet merged source-tracking changes, new record-source file
from working-0711, but this stuff seems to bootstrap in one swell foop.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/lispequ.lisp

    r10424 r10426  
    949949(defmacro %cons-wrapper (class &optional
    950950                               (hash-index '(new-class-wrapper-hash-index)))
    951   `(%istruct 'class-wrapper ,hash-index ,class nil nil #'slot-id-lookup-no-slots nil nil #'%slot-id-ref-missing #'%slot-id-set-missing nil))
     951  (let* ((c (gensym)))
     952  `(let* ((,c ,class))
     953    (%istruct 'class-wrapper ,hash-index ,c nil nil #'slot-id-lookup-no-slots nil nil #'%slot-id-ref-missing #'%slot-id-set-missing nil (%class-ordinal ,c t) nil))))
    952954
    953955
     
    13191321;;; "basic" (e.g., builtin, non-extensible) streams.
    13201322(def-accessors (basic-stream) %svref
    1321   basic-stream.wrapper                  ; a class wrapper
     1323  basic-stream.wrapper                  ; a class wrapper object
    13221324  basic-stream.flags                    ; fixnum; bits.
    13231325  basic-stream.state                    ; typically an ioblock
     
    13891391  )
    13901392
     1393(defun %cons-foreign-variable (name type &optional container)
     1394  (%istruct 'foreign-variable nil name type container))
    13911395
    13921396(def-accessor-macros %svref
     
    14831487  )
    14841488
    1485   (def-accessors (afunc) %svref
    1486     ()                                    ; 'afunc
    1487     afunc-acode
    1488     afunc-parent
    1489     afunc-vars
    1490     afunc-inherited-vars
    1491     afunc-blocks
    1492     afunc-tags
    1493     afunc-inner-functions
    1494     afunc-name
    1495     afunc-bits
    1496     afunc-lfun
    1497     afunc-environment
    1498     afunc-lambdaform
    1499     afunc-argsword
    1500     afunc-ref-form
    1501     afunc-warnings
    1502     afunc-fn-refcount
    1503     afunc-fn-downward-refcount
    1504     afunc-all-vars
    1505     afunc-callers
    1506     afunc-vcells
    1507     afunc-fcells
    1508     afunc-fwd-refs
    1509     afunc-lfun-info
    1510     afunc-linkmap)
    1511 
    1512 (declaim (inline %make-afunc))
     1489(def-accessors (afunc) %svref
     1490  ()                                    ; 'afunc
     1491  afunc-acode
     1492  afunc-parent
     1493  afunc-vars
     1494  afunc-inherited-vars
     1495  afunc-blocks
     1496  afunc-tags
     1497  afunc-inner-functions
     1498  afunc-name
     1499  afunc-bits
     1500  afunc-lfun
     1501  afunc-environment
     1502  afunc-lambdaform
     1503  afunc-argsword
     1504  afunc-ref-form
     1505  afunc-warnings
     1506  afunc-fn-refcount
     1507  afunc-fn-downward-refcount
     1508  afunc-all-vars
     1509  afunc-callers
     1510  afunc-vcells
     1511  afunc-fcells
     1512  afunc-fwd-refs
     1513  afunc-lfun-info
     1514  afunc-linkmap)
    15131515
    15141516(defmacro %make-afunc ()
Note: See TracChangeset for help on using the changeset viewer.