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