Changeset 11891


Ignore:
Timestamp:
05/17/09 13:17:11 (9 years ago)
Author:
ehuelsmann
Message:

Add docstring and reindent DECLARE-OBJECT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11890 r11891  
    21942194(defun declare-object (obj &optional (obj-ref +lisp-object+)
    21952195                           obj-class)
     2196  "Stores the object OBJ in the object-lookup-table,
     2197loading the object value into a field upon class-creation time.
     2198
     2199The field type of the object is specified by OBJ-REF."
    21962200  (let ((key (symbol-name (gensym "OBJ"))))
    21972201    (remember key obj)
    21982202    (let* ((g1 (declare-string key))
    21992203           (g2 (symbol-name (gensym "O2BJ"))))
    2200       (let* (
    2201            (*code* *static-code*))
     2204      (let* ((*code* *static-code*))
    22022205      (declare-field g2 obj-ref)
    22032206      (emit 'getstatic *this-class* g1 +lisp-simple-string+)
Note: See TracChangeset for help on using the changeset viewer.