From bdf3f9837adc3a9d6666c38fe0a8a22a79b9bfaa Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 20 May 2008 04:22:58 +0000 Subject: --- src/ChangeLog | 10 ++++++++++ src/interp/i-object.boot | 3 ++- src/lisp/core.lisp.in | 2 +- 3 files changed, 13 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 7640dde2..bef613d9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,13 @@ +2008-05-19 Gabriel Dos Reis + + * 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 Port from btx-branch. 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. -- cgit v1.2.3