Changeset 11481
- Timestamp:
- Dec 8, 2008, 5:11:16 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-clos.lisp
r11465 r11481 2266 2266 initform 2267 2267 `(%slot-unbound-marker)))))) 2268 (default (assq initarg default-initargs))) 2268 (default (assq initarg default-initargs)) 2269 (default-value-form nil)) 2269 2270 (when spvar (ignorable spvar)) 2270 2271 (when default 2271 2272 (destructuring-bind (form function) 2272 2273 (cdr default) 2273 (setq default 2274 (if (self-evaluating-p form) 2274 (setq default-value-form 2275 (if (or (quoted-form-p form) 2276 (self-evaluating-p form)) 2275 2277 form 2276 2278 `(funcall ,function))))) … … 2278 2280 (list initarg name) 2279 2281 (if (and default one-initarg-p (null location-var)) 2280 default 2282 default-value-form 2281 2283 initial-value-form) 2282 2284 (if spvar (list spvar))))
Note: See TracChangeset
for help on using the changeset viewer.