Changeset 4020


Ignore:
Timestamp:
Apr 4, 2006, 9:18:54 PM (14 years ago)
Author:
gb
Message:

%LFUN-INFO & friends: do (FUNCTION-TO-FUNCTION-VECTOR).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/lambda-list.lisp

    r2332 r4020  
    2121;;; Compiler functions needed elsewhere
    2222
    23 ; used-by: backtrace, fred-additions
     23;;; used-by: backtrace, arglist
    2424(defun function-symbol-map (fn)
    2525  (getf (%lfun-info fn) 'function-symbol-map))
     
    3030         (declare (fixnum bits))
    3131         (and (logbitp $lfbits-symmap-bit bits)
    32                (%i- (uvsize fn)
     32               (%i- (uvsize (function-to-function-vector fn))
    3333                              (if (logbitp $lfbits-noname-bit bits) 2 3))))))
    3434(defun %lfun-info (fn)
    3535  (let* ((index (%lfun-info-index fn)))
    36     (if index (%svref fn index))))
     36    (if index (%svref (function-to-function-vector fn) index))))
    3737
    3838(defun uncompile-function (fn)
     
    4242;;; Lambda-list utilities
    4343
    44 ; We should handle/encode (&allow-other-keys) w/o keywords - might tell the compiler
    45 ; or user something.
    46 ; We should think harder before writing bogus & misleading comments.
    47 ; Tar is not a plaything.
    48 
    4944
    5045
    5146;;; Lambda-list verification:
    5247
    53 ; these things MUST be compiled.
    54 (eval-when (load)
     48;;; these things MUST be compiled.
     49(eval-when (:load-toplevel)
    5550
    5651(defvar *structured-lambda-list* nil)
     
    8176) ; end of eval-when (load)
    8277
    83 ; End of verify-lambda-list.lisp
     78;;; End of verify-lambda-list.lisp
Note: See TracChangeset for help on using the changeset viewer.