diff options
| -rw-r--r-- | src/ChangeLog | 10 | ||||
| -rw-r--r-- | src/interp/i-object.boot | 3 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 2 |
3 files changed, 13 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 7640dde2..bef613d9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,15 @@ 2008-05-19 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/ast.boot: Cleanup. + * boot/includer.boot: Likewise. + * boot/parser.boot: Likewise. + * boot/pile.boot: Likewise. + * boot/scanner.boot: Likewise. + * boot/tokens.boot: Likewise. + * boot/translator.boot: Likewise. + +2008-05-19 Gabriel Dos Reis <gdr@cs.tamu.edu> + Port from btx-branch. * lisp/core.lisp.in ($effectiveFaslType): New. * boot/translator.boot (needsStableReference?): Handle the ECL case. diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 5a793c2c..919d54a1 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -112,7 +112,8 @@ getValueNormalForm obj == IDENTP op and isConstructorName op => isConceptualCategory objMode obj => instantiationNormalForm(op,argl) MKQ val - -- what else can it be? Don't know; leave it alone. + -- This is not the final value of `obj', rather something that needs + -- further evaluation, e.g. generated code to compute the value. val instantiationNormalForm(op,argl) == diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 38ebcc5b..4996a7d5 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -144,7 +144,7 @@ (defconstant |$effectiveFaslType| ;#+:ecl (pathname-type (compile-file-pathname "foo.lisp" :system-p t)) ;; until ECL is fixed, return a hard coded value - "o" + #+:ecl "o" #-:ecl |$faslType|) ;; Extension of file containers for native shared libraries. |