diff options
author | dos-reis <gdr@axiomatics.org> | 2009-05-05 15:08:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-05-05 15:08:14 +0000 |
commit | ac2f74a3dc5293da393f513a8677513043e1e1d7 (patch) | |
tree | 9fecc0dea8096f064ed108904e6e615ebfe615df /src/interp/br-con.boot | |
parent | 68f86316038d1b98eca653f0e4cd97d44455b290 (diff) | |
download | open-axiom-ac2f74a3dc5293da393f513a8677513043e1e1d7.tar.gz |
Fix SF/2785271
* interp/sys-constants.boot ($Primitives): Remove.
* interp/br-con.boot (conOpPage1): Replace $Primitives by
$DomainNames.
(dbShowConsDoc1): Likewise.
* interp/buildom.boot ($nonLisplibDomains): Likewise.
* interp/br-op2.boot (kFormatSlotDomain): isConstructorName.
* interp/br-saturn.boot (bfConform1): Handle string literals as
constructor arguments.
Diffstat (limited to 'src/interp/br-con.boot')
-rw-r--r-- | src/interp/br-con.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index 423ea272..b6c9f566 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -738,7 +738,7 @@ conOpPage1(conform,:options) == --constructors Cname\#\E\sig \args \abb \comments (C is C, D, P, X) bindingsAlist := IFCAR options conname := opOf conform - MEMQ(conname,$Primitives) => + MEMQ(conname,$DomainNames) => dbSpecialOperations conname domname := --> !!note!! <-- null atom conform => conform @@ -1055,7 +1055,7 @@ dbShowConsDoc(htPage,conlist) == dbShowConsDoc1(htPage,conform,indexOrNil) == [conname,:conargs] := conform - MEMQ(conname,$Primitives) => + MEMQ(conname,$DomainNames) => conname := htpProperty(htPage,'conname) [["constructor",["NIL",doc]],:.] := GETL(conname,'documentation) sig := '((CATEGORY domain) (SetCategory) (SetCategory)) |