Ticket #3: format.diff

File format.diff, 1.1 KB (added by rme, 4 years ago)

  • format.lisp

     
    972972                 (cond ((eq *format-index* start) 
    973973                        (return t)) 
    974974                       (t (return nil)))))))) 
    975     (if *format-justification-semi* 
    976       (format-error "~<...~:> illegal in this context.")) 
     975    (when *format-justification-semi* 
     976      (setq *format-index* start) 
     977      (format-error "~~<...~~:> illegal in this context")) 
    977978    (setq *format-pprint* t) 
    978979    (let ((format-string *format-control-string*) 
    979980          (prefix (if colon "(" "")) 
    … …  
    998999      (when end-atsign (setq body-string (format-fill-transform body-string))) 
    9991000      (format-check-simple prefix) 
    10001001      (format-check-simple suffix) 
     1002      (unless *format-arguments* 
     1003        (setq *format-index* start) 
     1004        (format-error "Missing argument")) 
    10011005      (let ((args (if (not atsign) 
    10021006                    ; This piece of garbage is needed to avoid double length counting from (formatter ...) things 
    10031007                    ; but also to allow (flet . t) not to barf.