Changeset 11855
- Timestamp:
- Mar 28, 2009, 4:44:12 AM (12 years ago)
- Location:
- trunk/source
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/compiler/X86/x86-backend.lisp
r10753 r11855 263 263 (if (not (or disp base index)) 264 264 (setq disp (simplify-simple-operand head)) 265 (error "~s not expected in ~s" op)))))265 (error "~s not expected in ~s" head op))))) 266 266 (if (and (null (cdr form)) 267 267 (or disp base index)) … … 272 272 (if (not (or disp base index)) 273 273 (setq disp (simplify-simple-operand head)) 274 (error "~s not expected in ~s" op))))))))274 (error "~s not expected in ~s" head op)))))))) 275 275 (simplify-operand (op) 276 276 (cond ((atom op) -
trunk/source/compiler/X86/x86-lap.lisp
r10942 r11855 670 670 (if (eq f form) 671 671 (setq seg (svref x86::*x86-seg-entries* (x86::reg-entry-reg-num r))) 672 (error "Segment register ~s not valid in ~s" form))672 (error "Segment register ~s not valid in ~s" head form)) 673 673 ;; Some other register. Assume base if this is the 674 674 ;; first gpr. If we find only one gpr and a significant -
trunk/source/compiler/vreg.lisp
r3198 r11855 282 282 (when result-p (note-vinsn-sets-gpr vinsn vreg-value))))) 283 283 (unless (or (eq class 't) (vreg-ok-for-storage-class vreg class)) 284 (warn "~s was expected to have storage class matching specifier ~s" class))284 (warn "~s was expected to have storage class matching specifier ~s" vreg class)) 285 285 (when value 286 286 (if (atom value) -
trunk/source/level-1/l1-clos-boot.lisp
r11409 r11855 683 683 (when declarations 684 684 (unless (list-length declarations) 685 (error "~s is not a proper list" )))685 (error "~s is not a proper list" declarations))) 686 686 ;; Fix APO, lambda-list 687 687 (if apo-p -
trunk/source/level-1/l1-error-system.lisp
r11729 r11855 988 988 (if (= 1 (length other-functions)) 989 989 (format s "Apply ~s to ~S this time." (first other-functions) args) 990 (format s "Apply one of ~{~S or ~} to ~S this time."))) 990 (format s "Apply one of ~{~S or ~} to ~S this time." 991 other-functions args))) 991 992 :interactive (lambda () 992 993 (if (= 1 (length other-functions)) -
trunk/source/lib/macros.lisp
r11766 r11855 2778 2778 (when (and prefixp per-line-prefix-p) 2779 2779 (warn "prefix ~S and per-line-prefix ~S cannot both be specified ~ 2780 in PPRINT-LOGICAL-BLOCK" )2780 in PPRINT-LOGICAL-BLOCK" prefix per-line-prefix) 2781 2781 (setq per-line-prefix nil)) 2782 2782 `(let ((*logical-block-p* t)) -
trunk/source/lib/method-combination.lisp
r11347 r11855 684 684 (:most-specific-last) 685 685 (:most-specific-first (setf (car res-tail) (nreverse (car res-tail)))) 686 (t (error "~s is neither ~s nor ~s" :most-specific-first :most-specific-last)))686 (t (error "~s is neither ~s nor ~s" (car o-tail) :most-specific-first :most-specific-last))) 687 687 (when (car r-tail) 688 688 (unless (car res-tail) -
trunk/source/library/loop.lisp
r11805 r11855 1945 1945 (cond ((or (cdr prep-phrases) (not (member (caar prep-phrases) '(:in :of)))) 1946 1946 (loop-error "Too many prepositions!")) 1947 ((null prep-phrases) (loop-error "Missing OF or IN in ~S iteration path.")))1947 ((null prep-phrases) (loop-error "Missing OF or IN in iteration path." ))) 1948 1948 (let ((ht-var (loop-gentemp 'loop-hashtab-)) 1949 1949 (next-fn (loop-gentemp 'loop-hashtab-next-)) -
trunk/source/tools/defsystem.lisp
r2734 r11855 2575 2575 ;; symbols, wherever the system is named. 2576 2576 (when (foreign-system-p system) 2577 (warn "Forei ng system ~S cannot be reloaded by MK:DEFSYSTEM.")2577 (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." system) 2578 2578 (return-from find-system nil)) 2579 2579 (let ((path (compute-system-path system-name definition-pname))) … … 2597 2597 (or (unless *reload-systems-from-disk* (get-system system-name)) 2598 2598 (when (foreign-system-p (get-system system-name)) 2599 (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." )2599 (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." system-name) 2600 2600 (return-from find-system nil)) 2601 2601 (or (find-system system-name :load-or-nil definition-pname)
Note: See TracChangeset
for help on using the changeset viewer.