/[gcl]/gcl/cmpnew/gcl_cmpinline.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpinline.lsp

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

revision 1.15 by camm, Mon May 9 19:59:45 2005 UTC revision 1.16 by camm, Wed Jun 22 01:33:44 2005 UTC
# Line 518  Line 518 
518    (when (flag-p (third inline-info) itf)    (when (flag-p (third inline-info) itf)
519      (let ((restp (apply (car inline-info) arg-types)))      (let ((restp (apply (car inline-info) arg-types)))
520        (return-from inline-type-matches (when restp `(,(car restp) ,(cadr restp) ,@(cddr inline-info))))))        (return-from inline-type-matches (when restp `(,(car restp) ,(cadr restp) ,@(cddr inline-info))))))
521    (if (member 'integer (car inline-info))    (if (member 'integer (car inline-info) :key (lambda (x) (if (consp x) (car x) x)) :test #'eq)
522        (return-from inline-type-matches nil))        (return-from inline-type-matches nil))
523    (if (and (let ((types (car inline-info))(last t))    (if (and (let ((types (car inline-info))(last t))
524                  (declare (object types))                  (declare (object types))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26