aboutsummaryrefslogtreecommitdiff
path: root/src/interp/vmlisp.lisp.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-13 11:06:16 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-13 11:06:16 +0000
commit7491a064401ff3493d32513d9028afecf29f2e5b (patch)
tree8de315b10585077cec99754ff9fb9eaa9dd472fe /src/interp/vmlisp.lisp.pamphlet
parent3b5bfc6d56f8cbd020d963622ce9ab6160ee049f (diff)
downloadopen-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/vmlisp.lisp.pamphlet')
-rw-r--r--src/interp/vmlisp.lisp.pamphlet3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/vmlisp.lisp.pamphlet b/src/interp/vmlisp.lisp.pamphlet
index 4bc1b1ac..0497f8c9 100644
--- a/src/interp/vmlisp.lisp.pamphlet
+++ b/src/interp/vmlisp.lisp.pamphlet
@@ -721,9 +721,6 @@ and works properly.
(defmacro smintp (n)
`(fixp ,n))
-(defmacro |startsId?| (x)
- `(or (alpha-char-p ,x) (member ,x '(#\? #\% #\!) :test #'char=)))
-
(defmacro stringlength (x)
`(length (the string ,x)))