/[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.26 by camm, Mon Sep 26 16:45:02 2005 UTC revision 1.27 by camm, Wed Oct 5 15:22:35 2005 UTC
# Line 491  Line 491 
491    (when (flag-p (third inline-info) itf)    (when (flag-p (third inline-info) itf)
492      (let ((restp (apply (car inline-info) arg-types)))      (let ((restp (apply (car inline-info) arg-types)))
493        (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))))))
494    (if (member 'integer (car inline-info) :key (lambda (x) (if (consp x) (car x) x)) :test #'eq)  ;  (if (member 'integer (car inline-info) :key (lambda (x) (if (consp x) (car x) x)) :test #'eq)
495        (return-from inline-type-matches nil))  ;      (return-from inline-type-matches nil))
496    (if (and (let ((types (car inline-info))(last t))    (if (and (let ((types (car inline-info))(last t))
497                  (declare (object types))                  (declare (object types))
498                  (dolist** (arg-type arg-types (or (equal types '(*))                  (dolist** (arg-type arg-types (or (equal types '(*))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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