/[cmucl]/src/compiler/meta-vmdef.lisp
ViewVC logotype

Diff of /src/compiler/meta-vmdef.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.48.3 by rtoy, Fri Feb 26 21:34:58 2010 UTC revision 1.9.48.4 by rtoy, Fri Mar 5 00:06:05 2010 UTC
# Line 1414  Line 1414 
1414                                          (eq (car x) :constant)))                                          (eq (car x) :constant)))
1415                                 types)                                 types)
1416                   num)                   num)
1417          (error _"Expected ~D ~:[result~;argument~] type~P: ~S."          (error (intl:ngettext "Expected ~D ~:[result~;argument~] type: ~S."
1418                                  "Expected ~D ~:[result~;argument~] types: ~S."
1419                                  (length types))
1420                 num load-p types num)))                 num load-p types num)))
1421    
1422      (when more-op      (when more-op

Legend:
Removed from v.1.9.48.3  
changed lines
  Added in v.1.9.48.4

  ViewVC Help
Powered by ViewVC 1.1.5