diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 557ac834..3608e2ad 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -967,6 +967,13 @@ 'APPEND-N) ((FAIL)))) ((FAIL)))) + + + + ;; # Gives the number of elements of a list, 0 for atoms. + ;; If we quote it, then an interpreter trip is necessary every time + ;; we call #, and this costs us - 4% in the RATINT DEMO." + (define-function '|#| #'SIZE) )) |