Changeset 11855 for trunk/source/level-1


Ignore:
Timestamp:
Mar 28, 2009, 4:44:12 AM (11 years ago)
Author:
rme
Message:

Merge r11810 (fixes to various format/warn/etc. calls).

Location:
trunk/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r11409 r11855  
    683683  (when declarations
    684684    (unless (list-length declarations)
    685       (error "~s is not a proper list")))
     685      (error "~s is not a proper list" declarations)))
    686686  ;; Fix APO, lambda-list
    687687  (if apo-p
  • trunk/source/level-1/l1-error-system.lisp

    r11729 r11855  
    988988                             (if (= 1 (length other-functions))
    989989                               (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)))
    991992                   :interactive (lambda ()
    992993                                  (if (= 1 (length other-functions))
Note: See TracChangeset for help on using the changeset viewer.