Added minimal-compiler-macros.

Pascal J. Bourguignon [2014-10-10 01:45]
Added minimal-compiler-macros.
Filename
packages.lisp
diff --git a/packages.lisp b/packages.lisp
index 92a1a5a..d51ad54 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -34,10 +34,14 @@
 ;;;;    Boston, MA 02111-1307 USA
 ;;;;**************************************************************************

+(in-package "COMMON-LISP-USER")
+
+
 (defpackage "MINIMAL-COMPILER"
   (:nicknames "MC")
-  (:use "COMMON-LISP")
-
+  (:use "COMMON-LISP"
+        "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM"
+        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY")
   (:shadow
    . #1=(
          "*MACROEXPAND-HOOK*"
@@ -59,21 +63,41 @@ This package exports a Common Lisp minimal compiler.
 It defines its own environments, and exports the functions, accessors
 and macros needed to manipulate them.

+"))


-"))
+(defpackage "MINIMAL-COMPILER-SYSTEM"
+  (:use "COMMON-LISP")
+  (:nicknames "MC-SYSTEM" "MCSYS")
+  (:export "NOTE-TYPE"  "ENSURE-TYPE"
+           "NOTE-CLASS" "ENSURE-CLASS"
+           "CONSTANT"
+           "SOURCE-PROGRAM-ERROR"
+           "SOURCE-PROGRAM-ERROR-SOURCE-FORM"
+           "SOURCE-PROGRAM-ERROR-ERRONEOUS-SUBFORM"
+           "SOURCE-PROGRAM-ERROR-INVALID-VARIABLE-NAME"
+           "SOURCE-PROGRAM-ERROR-INVALID-DOCUMENTATION-STRING"
+           "SOURCE-PROGRAM-ERROR-TOO-MANY-DOCUMENTATION-STRINGS"
+           "SOURCE-PROGRAM-ERROR-TOO-MANY-SIZE-CLAUSES"
+           "SOURCE-PROGRAM-ERROR-INVALID-DEFPACKAGE-CLAUSE"
+           "SOURCE-PROGRAM-ERROR-TOO-MANY-DEFTYPE-FORMS"
+           "PACKAGE-ERROR-PACKAGE-NOT-FOUND"
+           "PACKAGE-ERROR-SYMBOL-NOT-FOUND")
+  (:documentation "

+This package exports primitives that are referenced by the macros
+defined in STANDARD-MACRO.

-  '(SETQ BLOCK CATCH EVAL-WHEN FLET FUNCTION GO IF LABELS LET LET*
-    LOAD-TIME-VALUE LOCALLY MACROLET MULTIPLE-VALUE-CALL
-    MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM SYMBOL-MACROLET
-    TAGBODY THE THROW UNWIND-PROTECT)
+"))



 (defpackage "STANDARD-MACROS"
   (:nicknames "SM")
-  (:use "COMMON-LISP" "MINIMAL-COMPILER")
+  (:use "COMMON-LISP"
+        "MINIMAL-COMPILER"
+        "MINIMAL-COMPILER-SYSTEM"
+        "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM")
   (:shadowing-import-from
    "MINIMAL-COMPILER"
    "*MACROEXPAND-HOOK*"
@@ -119,21 +143,9 @@ and macros needed to manipulate them.



-'("AREF" "BIT" "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR"
-  "CAAR" "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR"
-  "CAR" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" "CDADR" "CDAR"
-  "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR" "CDDR" "CDR"
-  "CHAR" "COMPILER-MACRO-FUNCTION" "EIGHTH" "ELT" "FDEFINITION"
-  "FIFTH" "FILL-POINTER" "FIND-CLASS" "FIRST" "FOURTH" "GET" "GETF"
-  "GETHASH" "LDB" "LOGICAL-PATHNAME-TRANSLATIONS" "MACRO-FUNCTION"
-  "MASK-FIELD" "NINTH" "NTH" "READTABLE-CASE" "REST"
-  "ROW-MAJOR-AREF" "SBIT" "SCHAR" "SECOND" "SEVENTH" "SIXTH"
-  "SUBSEQ" "SVREF" "SYMBOL-FUNCTION" "SYMBOL-PLIST" "SYMBOL-VALUE"
-  "TENTH" "THIRD" "VALUES")
-
-
-
-
+(defpackage "MINIMAL-COMPILER-MACROS"
+  (:nicknames "MCM")
+  )


 (defparameter *cl-accessors*
@@ -178,8 +190,3 @@ and macros needed to manipulate them.
     MULTIPLE-VALUE-PROG1 PROGN PROGV QUOTE RETURN-FROM SYMBOL-MACROLET
     TAGBODY THE THROW UNWIND-PROTECT))

-
-
-(defpackage "MINIMAL-COMPILER-MACROS"
-  (:nicknames "MCM")
-  (:export ))
ViewGit