Fixed MCL incompatibility

This commit is contained in:
waldemar%netscape.com 1999-11-20 04:34:42 +00:00
parent 5b2d5696f3
commit fa91c627f0
2 changed files with 2 additions and 2 deletions

View File

@ -155,7 +155,7 @@
;;; ------------------------------------------------------------------------------------------------------
;;; VALUE ASSERTS
(eval-when (:compile-toplevel :load-toplevel)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant *value-asserts* t))
; Assert that (test value) returns non-nil. Return value.

View File

@ -155,7 +155,7 @@
;;; ------------------------------------------------------------------------------------------------------
;;; VALUE ASSERTS
(eval-when (:compile-toplevel :load-toplevel)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant *value-asserts* t))
; Assert that (test value) returns non-nil. Return value.