Ignore:
Timestamp:
Jan 12, 2011, 9:58:39 PM (9 years ago)
Author:
gb
Message:

Typecheck the NAME argument in SYMBOL-FUNCTION; use FSET-SYMBOL
as SYMBOL-FUNCTION's SETF inverse.
Fixes ticket:808.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-def.lisp

    r14325 r14577  
    6767;Redefined in sysutils.
    6868(%fhave 'fset #'bootstrapping-fset)
     69
     70(defun fset-symbol (name fn)
     71  (fset (require-type name 'symbol) fn))
     72
    6973
    7074(defun bootstrapping-record-source-file (fn &optional type)
Note: See TracChangeset for help on using the changeset viewer.