Changeset 13635
- Timestamp:
- Apr 18, 2010, 3:17:04 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-utils.lisp
r13634 r13635 742 742 ;;;;;FUNCTION BINDING Functions 743 743 744 ;;; A symbol's entrypoint contains:745 ;;; 1) something tagged as $t_lfun if the symbol is746 ;;; not fbound as a macro or special form;747 ;;; 2) a cons, otherwise, where the cdr is a fixnum748 ;;; whose value happens to be the same bit-pattern749 ;;; as a "jsr_subprim $sp-apply-macro" instruction.750 ;;; The car of this cons is either:751 ;;; a) a function -> macro-function;752 ;;; b) a symbol: special form not redefined as a macro.753 ;;; c) a cons whose car is a function -> macro function defined754 ;;; on a special form.755 756 757 758 759 744 (defun symbol-function (name) 760 745 "Return the definition of NAME, even if it is a macro or a special form.
Note: See TracChangeset
for help on using the changeset viewer.