diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-12 23:47:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-12 23:47:29 +0000 |
| commit | 3a83e42280a29741eefd9ec6bfbc21fb5da3aaf6 (patch) | |
| tree | 2d9f8472f45ee789674ea6a0a1509b0ecf0d4330 /src/interp/patches.lisp.pamphlet | |
| parent | 268e1d951b28b128781ba8f4851149da0be458d9 (diff) | |
| download | open-axiom-3a83e42280a29741eefd9ec6bfbc21fb5da3aaf6.tar.gz | |
* posit.boot: New. Import sys-macros, astr.
(tokConstruct): Move from ptrees.boot.pamphlet.
(tokType): Likewise.
(tokPart): Likewise.
(tokPosn): Likewise.
(pfAbSynOp): Likewise.
(pfAbSynOp?): Likewise.
(pfLeaf?): Likewise.
(pfLeaf): Likewise.
(pfLeafToken): Likewise.
(pfLeafPosition): Likewise.
(pfTree): Likewise.
(pfParts): Likewise.
(pfFirst): Likewise.
(pfSecond): Likewise.
* astr.boot: New. Import boot-pkg.
* sys-constants.boot (IDENTITY): Define.
* patches.lisp.pamphlet (identity): Move definition to sys-constants.
* cformat.boot: New. Import unlisp, posit. Add ugly workwound
for GCL bug.
* incl.boot: New. Import unlisp, cstream, cformat. Tweak.
Add ugly workwound for GCL bug.
(incLude1): Fix thinko
* Makefile.pamphlet (incl.$(FASLEXT)): New rule.
(cformat.$(FASLEXT)): Likewise.
(posit.$(FASLEXT)): Likewise.
(astr.$(FASLEXT)): Likewise.
(DEP): Don't include bits.lisp.
(${DEPSYS}): Explicitly load "bits" here.
Diffstat (limited to 'src/interp/patches.lisp.pamphlet')
| -rw-r--r-- | src/interp/patches.lisp.pamphlet | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet index 82961a1e..a825922c 100644 --- a/src/interp/patches.lisp.pamphlet +++ b/src/interp/patches.lisp.pamphlet @@ -300,8 +300,6 @@ previous definition. #+:AKCL (proclaim '(ftype (function (t) t) identity)) #+:AKCL (defun identity (x) x) -(setq identity #'identity) ;to make LispVM code for handling constants to work - (|initializeTimedNames| |$interpreterTimedNames| |$interpreterTimedClasses|) (defun |rebuild| (filemode) |