/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

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

revision 1.16 by pfdietz, Thu Jan 2 13:00:50 2003 UTC revision 1.17 by pfdietz, Fri Jan 10 04:06:59 2003 UTC
# Line 938  the condition to go uncaught if it canno Line 938  the condition to go uncaught if it canno
938    
939  (defun safe-elt (x n)  (defun safe-elt (x n)
940    (classify-error* (elt x n)))    (classify-error* (elt x n)))
941    
942    (defmacro defstruct* (&body args)
943      `(eval-when (load eval compile)
944         (ignore-errors
945           (defstruct ,@args))))

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

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