Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |