/[gcl]/gcl/ansi-tests/structure-00.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/structure-00.lsp

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

revision 1.17 by pfdietz, Sat Mar 1 03:35:48 2003 UTC revision 1.18 by pfdietz, Tue Jul 1 02:08:54 2003 UTC
# Line 263  do the defstruct." Line 263  do the defstruct."
263                       (cons slot-name (defstruct-maketemp name "SLOTTEMP" i)))))                       (cons slot-name (defstruct-maketemp name "SLOTTEMP" i)))))
264           )           )
265      ;; Build the tests in an eval-when form      ;; Build the tests in an eval-when form
266      `(eval-when (compile load eval)      `(eval-when #+gcl (compile load eval)
267                    #-gcl (:load-toplevel :compile-toplevel :execute)
268    
269         (ignore-errors         (ignore-errors
270           (eval '(defstruct ,name-and-options           (eval '(defstruct ,name-and-options

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

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