;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+(eval-when (compile load eval)
+ (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+ (in-package 'gacela :nicknames '(gg) :use '(lisp)))
+
+
(defconstant INFINITY MOST-POSITIVE-LONG-FLOAT)
(defun append-if (new test tree &key (key #'first) (test-if #'equal))
`(block secure
(defun si::universal-error-handler (error-name correctable function-name continue-format-string error-format-string &rest args)
,(when output-stream
- `(format ,output-stream
- (cond ((eq error-name :WRONG-TYPE-ARGUMENT) (string error-name))
- (t error-format-string))))
+ `(write-line
+ (cond ((eq error-name :WRONG-TYPE-ARGUMENT) (string error-name))
+ (t error-format-string))
+ ,output-stream))
(setf (symbol-function 'si::universal-error-handler) ,error-handler)
(return-from secure))
(let (result-eval)