diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-05 16:42:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-05 16:42:50 +0000 |
| commit | 207c5a13c6987ad88975c35006d16c74d0e58e1a (patch) | |
| tree | 9c15509f1153868e6df6210cca98dffb84ea7000 /src/boot/strap/parser.clisp | |
| parent | 2a4baaa2a295381d6c37ec2fc7c3f7ec8fd089cf (diff) | |
| download | open-axiom-207c5a13c6987ad88975c35006d16c74d0e58e1a.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/strap/parser.clisp')
| -rw-r--r-- | src/boot/strap/parser.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index 9b36ba0d..0d5f4199 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -692,7 +692,7 @@ (DEFUN |bpString| () (DECLARE (SPECIAL |$ttok| |$stok|)) (AND (EQ (|shoeTokType| |$stok|) 'STRING) - (|bpPush| (LIST 'QUOTE (INTERN |$ttok|))) (|bpNext|))) + (|bpPush| (|quote| (INTERN |$ttok|))) (|bpNext|))) (DEFUN |bpThetaName| () (DECLARE (SPECIAL |$ttok| |$stok|)) |