diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-11-14 01:09:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-11-14 01:09:16 +0000 |
| commit | fabbf02ee4b80241b75826536502c2d683e8462e (patch) | |
| tree | b1b9a9269a716958cf4e65312c6d7e5a9a0bbf5b /src/interp/br-util.boot.pamphlet | |
| parent | b9a4b6948e221b8e4fcd62ed69dd5713e0b8fbf7 (diff) | |
| download | open-axiom-fabbf02ee4b80241b75826536502c2d683e8462e.tar.gz | |
* Makefile.pamphlet (br-search.$(FASLEXT)): New rule.
(br-saturn.$(FASLEXT)): Likewise.
(br-op2.$(FASLEXT)): Likewise.
(br-op1.$(FASLEXT)): Likewise.
(br-con.$(FASLEXT)): Likewise.
(br-data.$(FASLEXT)): Likewise.
(br-util.$(FASLEXT)): Likewise.
(<<br-search.clisp>>): Remove.
(<<br-saturn.clisp>>): Likewise.
(<<br-op2.clisp>>): Likewise.
(<<br-op1.clisp>>): Likewise.
(<<br-con.clisp>>): Likewise.
(<<br-data.clisp>>): Likewise.
(<<br-util.clisp>>): Likewise.
* br-search.boot.pamphlet: Push into package "BOOT". Fix syntax.
* br-saturn.boot.pamphlet: Likewise.
* br-op2.boot.pamphlet: Likewise.
* br-op1.boot.pamphlet: Likewise.
* br-con.boot.pamphlet: Likewise.
* br-data.boot.pamphlet: Likewise.
* br-util.boot.pamphlet: Likewise.
Diffstat (limited to 'src/interp/br-util.boot.pamphlet')
| -rw-r--r-- | src/interp/br-util.boot.pamphlet | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/interp/br-util.boot.pamphlet b/src/interp/br-util.boot.pamphlet index d157054d..9b31f2b5 100644 --- a/src/interp/br-util.boot.pamphlet +++ b/src/interp/br-util.boot.pamphlet @@ -50,6 +50,9 @@ <<*>>= <<license>> +import '"bc-util" +)package "BOOT" + --====================> WAS b-util.boot <================================ --======================================================================= @@ -119,7 +122,8 @@ capitalize s == ("domain" . "Domain") ("category" . "Category") ("package" . "Package") - ("default package" . "Default Package"))) or + ("default package" . "Default Package"))) + or res := COPY_-SEQ s SETELT(res,0,UPCASE res.0) res @@ -323,7 +327,7 @@ bcConform(form,:options) == bcConform1 form == main where -----------------> OBSELETE - main == + main() == form is ['ifp,form1,:pred] => hd form1 bcPred pred |