Skip to content
Snippets Groups Projects
Commit 3507a65f authored by wlott's avatar wlott
Browse files

Fixed defvar of *meta-error* to be *meta-errors*.

Added object-not-weak-pointer.
parent cdb4a08e
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.2 1990/06/04 08:14:43 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.3 1990/06/05 14:43:05 wlott Exp $
;;; ;;;
;;; Functions and macros to define and deal with internal errors (i.e. ;;; Functions and macros to define and deal with internal errors (i.e.
;;; problems that can be signaled from assembler code). ;;; problems that can be signaled from assembler code).
...@@ -73,7 +73,7 @@ ...@@ -73,7 +73,7 @@
(eval-when (compile eval) (eval-when (compile eval)
(defvar *meta-error*) (defvar *meta-errors*)
(setf *meta-errors* (make-array 10 :initial-element nil)) (setf *meta-errors* (make-array 10 :initial-element nil))
(defun meta-error-number (name) (defun meta-error-number (name)
...@@ -374,6 +374,10 @@ ...@@ -374,6 +374,10 @@
(&rest args) (&rest args)
(error "object-not-complex:~{ ~S~}" args)) (error "object-not-complex:~{ ~S~}" args))
(deferr object-not-weak-pointer
"Object is not a WEAK-POINTER."
(&rest args)
(error "object-not-weak-pointer:~{ ~S~}" args))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment