Changeset 4409

Timestamp:

10/16/03 14:22:53 (18 years ago)

Author:

piso

Message:

*MODULES*, *LOAD-VERBOSE*, *LOAD-PRINT*, *LOAD-TRUENAME*, *LOAD-DEPTH*

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Lisp.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.163 2003-10-12 18:20:42 piso Exp $
+ * $Id: Lisp.java,v 1.164 2003-10-16 14:22:53 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -1274 +1274 @@
     }
 
+    // ### *modules*
+    public static final Symbol _MODULES_ =
+        exportSpecial("*MODULES*", PACKAGE_CL, NIL);
+
+    // ### *load-verbose*
+    public static final Symbol _LOAD_VERBOSE_ =
+        exportSpecial("*LOAD-VERBOSE*", PACKAGE_CL, NIL);
+
+    // ### *load-print*
+    public static final Symbol _LOAD_PRINT_ =
+        exportSpecial("*LOAD-PRINT*", PACKAGE_CL, NIL);
+
+    // ### *load-truename*
+    public static final Symbol _LOAD_TRUENAME_ =
+        exportSpecial("*LOAD-TRUENAME*", PACKAGE_CL, NIL);
+
+    // ### *load-depth*
+    // internal symbol
+    public static final Symbol _LOAD_DEPTH_ =
+        internSpecial("*LOAD-DEPTH*", PACKAGE_SYS, new Fixnum(0));
+
     // Printer control variables.
     public static final Symbol _PRINT_ARRAY_ =