From 7ba4cd656138bedb567137ea662f26213bc2e898 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 20 Feb 2008 17:24:05 +0000
Subject: 	* lisp/core.lisp.in [SBCL]: Require "sb-posix". 
 (|resetErrorCount|): New export function. 	* interp/vmlisp.lisp (opOf):
 Remove macro definition. 	* interp/msg.boot (setMsgCatlessAttr): Fix
 thinko. 	* interp/monitor.lisp (monitor-add): Remove extra right
 parenthesis. 	* interp/lisplib.boot: Import "debug". 	(initializeLisplib):
 Don't use ERRORS variable. 	* interp/i-spec1.boot
 (isDomainValuedVariable): Tidy. 	* interp/i-output.boot (outputTran):
 Use SIZE instead of #. 	(output): Remove misguided conversion from
 Tuple to List. 	* interp/i-coerce.boot (coerceInteractive): Allow
 domain object 	convesions. 	* interp/g-util.boot (opOf): Declare. 	*
 interp/Makefile.pamphlet (lisplib.$(FASLEXT)): Depend on 
 debug.$(FASLEXT). 	* algebra/Makefile.pamphlet: Use .$(FASLEXT) instead
 of hardcoded 	.o extension.

---
 src/lisp/core.lisp.in | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'src/lisp/core.lisp.in')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 53175aca..ab21a70c 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -1,9 +1,9 @@
 ;; Ô Emacs, this is a -*- Lisp -*- file, despite apperance
 ;; 
-;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 ;; All rights reserved.
 ;; 
-;; Copyright (C) 2007, Gabriel Dos Reis.
+;; Copyright (C) 2007-2008, Gabriel Dos Reis.
 ;; All rights reserved.
 ;;
 ;; Redistribution and use in source and binary forms, with or without
@@ -18,7 +18,7 @@
 ;;       the documentation and/or other materials provided with the
 ;;       distribution.
 ;;
-;;     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+;;     - Neither the name of The Numerical Algorithms Group Ltd. nor the
 ;;       names of its contributors may be used to endorse or promote products
 ;;       derived from this software without specific prior written permission.
 ;;
@@ -59,6 +59,7 @@
            "coreError"
            "errorCount"
            "countError"
+	   "resetErrorCount"
            "warn"
            
            "%hasFeature"
@@ -331,6 +332,9 @@
 (defun |countError| nil
   (setq |$errorCount| (1+ |$errorCount|)))
 
+(defun |resetErrorCount| nil
+  (setq |$errorCount| 0))
+
 (defun |fatalError| (msg)
   (|countError|)
   (|diagnosticMessage| "fatal error" msg)
@@ -756,7 +760,10 @@
 (defun |%hasFeature| (f)
   (member f *features* :test #'eq))
 
-;; -*- Lisp Implementatiom-dependen Supports -*-
+;; -*- Lisp Implementatiom-dependent Supports -*-
+
+#+ :sbcl
+(require "sb-posix")
 
 #+ :sbcl
 (defun shoe-provide-module(name)
-- 
cgit v1.2.3