Changeset 3482

Timestamp:

08/24/03 16:41:22 (20 years ago)

Author:

piso

Message:

PUTHASH => PACKAGE_SYS

Location:

trunk/j/src/org/armedbear/lisp

Files:

• Autoload.java (modified) (3 diffs)
• HashTable.java (modified) (2 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Autoload.java,v 1.47 2003-08-11 18:02:19 piso Exp $
+ * $Id: Autoload.java,v 1.48 2003-08-24 16:41:22 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -186 +186 @@
         autoload("pathnamep", "Pathname");
         autoload("probe-file", "probe_file");
-        autoload("puthash", "HashTable");
         autoload("remhash", "HashTable");
         autoload("rename-package", "PackageFunctions");
@@ -223 +222 @@
         autoload(PACKAGE_SYS, "%time", "Time");
         autoload(PACKAGE_SYS, "make-fill-pointer-output-stream", "FillPointerOutputStream");
+        autoload(PACKAGE_SYS, "puthash", "HashTable");
     }
 }

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: HashTable.java,v 1.13 2003-08-15 17:18:02 piso Exp $
+ * $Id: HashTable.java,v 1.14 2003-08-24 16:40:58 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -273 +273 @@
     };
 
+    // ### puthash
     // puthash key hash-table default &optional (value default) => value
-    private static final Primitive PUTHASH = new Primitive("puthash") {
+    private static final Primitive PUTHASH =
+        new Primitive("puthash", PACKAGE_SYS, false) {
         public LispObject execute(LispObject[] args) throws LispError
         {