diff options
Diffstat (limited to 'src/interp/metalex.lisp')
| -rw-r--r-- | src/interp/metalex.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/metalex.lisp b/src/interp/metalex.lisp index 0d5c6e6b..65563cd7 100644 --- a/src/interp/metalex.lisp +++ b/src/interp/metalex.lisp @@ -558,7 +558,7 @@ empty (if File-Closed (return nil)) (identifier (let ((id (symbol-name (token-symbol token))) (pack (package-name (symbol-package (token-symbol token))))) - (if (or $BOOT $SPAD) + (if $SPAD (if (equal pack "BOOT") (escape-keywords (underscore id) (token-symbol token)) (concatenate 'string |