Changeset 11891

Timestamp:

05/17/09 13:17:11 (12 years ago)

Author:

ehuelsmann

Message:

Add docstring and reindent DECLARE-OBJECT.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -2194 +2194 @@
 (defun declare-object (obj &optional (obj-ref +lisp-object+)
                            obj-class)
+  "Stores the object OBJ in the object-lookup-table,
+loading the object value into a field upon class-creation time.
+
+The field type of the object is specified by OBJ-REF."
   (let ((key (symbol-name (gensym "OBJ"))))
     (remember key obj)
     (let* ((g1 (declare-string key))
            (g2 (symbol-name (gensym "O2BJ"))))
-      (let* (
-           (*code* *static-code*))
+      (let* ((*code* *static-code*))
       (declare-field g2 obj-ref)
       (emit 'getstatic *this-class* g1 +lisp-simple-string+)