diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-13 11:06:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-13 11:06:16 +0000 |
| commit | 7491a064401ff3493d32513d9028afecf29f2e5b (patch) | |
| tree | 8de315b10585077cec99754ff9fb9eaa9dd472fe /src/interp/sys-macros.lisp | |
| parent | 3b5bfc6d56f8cbd020d963622ce9ab6160ee049f (diff) | |
| download | open-axiom-7491a064401ff3493d32513d9028afecf29f2e5b.tar.gz | |
* Makefile.pamphlet (scan.$(FASLEXT)): New rule.
(pile.$(FASLEXT)): Likewise.
(INOBJS): Don't include parini.$(FASLEXT).
* pile.boot: New. Import scan.
* pile.boot.pamphlet: Move content to pile.boot. Remove.
* vmlisp.lisp.pamphlet (|startsId?|): Move to sys-macros.lisp.
* parini.boot.pamphlet: Move content to scan.boot. Remove.
* scan.boot: New. Import bits, dq, incl. Add workaround for GCL
bug.
($SPACE): Rename from SPACE to avoid conflict with CL name.
* scan.boot.pamphlet: Move content to scan.boot. Remove.
Diffstat (limited to 'src/interp/sys-macros.lisp')
| -rw-r--r-- | src/interp/sys-macros.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index d198e8f0..903f04e3 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -59,6 +59,11 @@ (character (cadr arg))) (t `(character ,arg)))) + +(defmacro |startsId?| (x) + `(or (alpha-char-p ,x) + (member ,x '(#\? #\% #\!) :test #'char=))) + ;; ;; -*- BigFloat Constructors -*- ;; |