Skip to content
Snippets Groups Projects
Commit 0c06b19d authored by wlott's avatar wlott
Browse files

Added object-not-structure-error.

parent 78be7e14
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.10 1990/09/06 19:41:49 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.11 1990/10/03 09:57:23 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).
...@@ -46,7 +46,8 @@ ...@@ -46,7 +46,8 @@
object-not-simple-array-unsigned-byte-32-error object-not-simple-array-unsigned-byte-32-error
object-not-simple-array-single-float-error object-not-simple-array-single-float-error
object-not-simple-array-double-float-error object-not-simple-array-double-float-error
object-not-complex-error object-not-weak-pointer-error)) object-not-complex-error object-not-weak-pointer-error
object-not-structure-error))
...@@ -413,6 +414,14 @@ ...@@ -413,6 +414,14 @@
(&rest args) (&rest args)
(error "object-not-weak-pointer:~{ ~S~}" args)) (error "object-not-weak-pointer:~{ ~S~}" args))
(deferr object-not-structure-error
"Object is not a STRUCTURE."
(object)
(error 'simple-error
:function-name name
:format-string "~S isn't a structure."
:format-arguments (list object)))
#+new-compiler #+new-compiler
......
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