Changeset 11399
- Timestamp:
- Nov 18, 2008, 8:58:16 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-clos.lisp
r11364 r11399 2164 2164 ;;; Return a list of :after methods for INITIALIZE-INSTANCE on the 2165 2165 ;;; class's prototype, and a boolean that's true if no other qualified 2166 ;;; methods are defined .2166 ;;; methods are defined and at most one primary one. 2167 2167 (defun initialize-instance-after-methods (proto class) 2168 2168 (let* ((method-list (compute-method-list (sort-methods … … 2171 2171 (if (atom method-list) 2172 2172 (values nil t) 2173 (if (null (car method-list)) 2173 (if (and (null (car method-list)) 2174 (null (cdddr method-list))) 2174 2175 (values (cadr method-list) t) 2175 ;; :around or :before methods, give up2176 ;; :around or :before methods, or more than one primary method, give up 2176 2177 (values nil nil))))) 2177 2178
Note: See TracChangeset
for help on using the changeset viewer.