Changeset 11891
- Timestamp:
- 05/17/09 13:17:11 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r11890 r11891 2194 2194 (defun declare-object (obj &optional (obj-ref +lisp-object+) 2195 2195 obj-class) 2196 "Stores the object OBJ in the object-lookup-table, 2197 loading the object value into a field upon class-creation time. 2198 2199 The field type of the object is specified by OBJ-REF." 2196 2200 (let ((key (symbol-name (gensym "OBJ")))) 2197 2201 (remember key obj) 2198 2202 (let* ((g1 (declare-string key)) 2199 2203 (g2 (symbol-name (gensym "O2BJ")))) 2200 (let* ( 2201 (*code* *static-code*)) 2204 (let* ((*code* *static-code*)) 2202 2205 (declare-field g2 obj-ref) 2203 2206 (emit 'getstatic *this-class* g1 +lisp-simple-string+)
Note: See TracChangeset
for help on using the changeset viewer.