diff --git a/ansi-tests/load-objects.lsp b/ansi-tests/load-objects.lsp index 904fa56366f807cc1f36d96f242f29955142386b..1b1b89fea8b7a3c1a9a6f735ab9584781ab39222 100644 --- a/ansi-tests/load-objects.lsp +++ b/ansi-tests/load-objects.lsp @@ -48,3 +48,4 @@ (load "compute-applicable-methods.lsp") (load "find-method.lsp") (load "add-method.lsp") +(load "unbound-slot.lsp") diff --git a/ansi-tests/unbound-slot.lsp b/ansi-tests/unbound-slot.lsp new file mode 100644 index 0000000000000000000000000000000000000000..36045c6b675120093ad602b9471c8066ae6ecc56 --- /dev/null +++ b/ansi-tests/unbound-slot.lsp @@ -0,0 +1,36 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Wed Jun 4 20:14:26 2003 +;;;; Contains: Tests for UNBOUND-SLOT, UNBOUND-SLOT-INSTANCE + +(in-package :cl-test) + +(defclass ubs-class-01 () + ((a :initarg :a))) + +(deftest unbound-slot.1 + (let ((obj (make-instance 'ubs-class-01))) + (handler-case + (slot-value obj 'a) + (unbound-slot (c) + (values + (typep* c 'cell-error) + (eqt (unbound-slot-instance c) obj) + (cell-error-name c))))) + t t a) + +(defclass ubs-class-02 () + ((b :allocation :class))) + +(deftest unbound-slot.2 + (let ((obj (make-instance 'ubs-class-02))) + (handler-case + (slot-value obj 'b) + (unbound-slot (c) + (values + (typep* c 'cell-error) + (eqt (unbound-slot-instance c) obj) + (cell-error-name c))))) + t t b) + +