diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-27 08:39:14 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-27 08:39:14 +0000 |
| commit | dbbc18b48695c2339520e9ba1e640f7559ff2e8a (patch) | |
| tree | 60e4dede3670bef78ad74415620c313fc12eba88 /src/boot/strap/parser.clisp | |
| parent | 66c8612e257defa8e42bb7b50b0c88a73422e660 (diff) | |
| download | open-axiom-dbbc18b48695c2339520e9ba1e640f7559ff2e8a.tar.gz | |
* boot/initial-env.lisp (IDENTP): Remove.
* boot/ast.boot: Replace IDENTP with symbol? where appropriate.
* boot/parser.boot: Likewise.
* boot/translator.boot: Likewise.
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 77744484..7b978080 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -1221,7 +1221,7 @@ (AND (CONSP |ISTMP#2|) (NULL (CDR |ISTMP#2|)) (PROGN (SETQ |r| (CAR |ISTMP#2|)) T))))) - (IDENTP |l|)) + (SYMBOLP |l|)) (COND (|$InteractiveMode| (LIST (LIST 'SETQ |l| |r|))) (T (LIST (LIST 'DEFPARAMETER |l| |r|))))) |