Added minimal-compiler-macros.
Pascal J. Bourguignon [2014-10-10 01:45]
Added minimal-compiler-macros.
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 ))