Changeset 8983


Ignore:
Timestamp:
Apr 1, 2008, 6:44:07 PM (11 years ago)
Author:
gb
Message:

NOTE-FUNCTION-INFORMATION changes for DEFSTRUCT copier, slot-accessors.

Location:
branches/working-0711/ccl/lib
Files:
2 edited

Legend:

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

    r8965 r8983  
    361361  `(progn
    362362     (eval-when (:compile-toplevel)
    363        (note-function-info ',copier nil ,env))
     363       (record-function-info ',copier (list (list (encode-lambda-list '(x)))) ,env))
    364364     (fset ',copier
    365365           ,(if (eq (sd-type sd) 'list) '#'copy-list '#'copy-uvector))
  • branches/working-0711/ccl/lib/defstruct.lisp

    r8965 r8983  
    215215          (push name defs))))
    216216    (setq defs (nreverse defs))
    217     `(progn
    218        (eval-when (:compile-toplevel)
    219          ,@(mapcar #'(lambda (name) `(note-function-info ',name nil ,env)) defs))
    220        (declaim (inline ,@defs)))))
     217    (let* ((info (list (cons (dpb 1 $lfbits-numreq 0) nil))))
     218      `(progn
     219        (eval-when (:compile-toplevel)
     220          ,@(mapcar #'(lambda (name) `(record-function-info ',name ',info ,env)) defs))
     221        (declaim (inline ,@defs))))))
    221222
    222223;;;Used by setf and whatever...
Note: See TracChangeset for help on using the changeset viewer.