/[gcl]/gcl/lsp/gcl_predlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_predlib.lsp

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

revision 1.24 by camm, Sun Sep 18 02:46:35 2005 UTC revision 1.25 by camm, Mon Sep 26 16:48:10 2005 UTC
# Line 592  Line 592 
592    
593  (defmacro maybe-eval (x) `(if (and (consp ,x) (eq (car ,x) 'load-time-value)) (eval (cadr ,x)) ,x))  (defmacro maybe-eval (x) `(if (and (consp ,x) (eq (car ,x) 'load-time-value)) (eval (cadr ,x)) ,x))
594    
595    ;;FIXME loose the ar and default to t
596  (defun normalize-type-int (type ar &aux tem)  (defun normalize-type-int (type ar &aux tem)
597    (cond ((atom type) (normalize-type-int (list type) ar))    (cond ((atom type) (normalize-type-int (list type) ar))
598          ;;These are deftype accelerators          ;;These are deftype accelerators

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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