Signal CONDITION-TYPE:NO-SUCH-SLOT when given an invalid slot name.

diff --git a/v7/src/sos/class.scm b/v7/src/sos/class.scm
index b98e8cfd25e50e6b2ffb77946bf9fec8e8521b71..c1d3aa7a6138c731bc95cdbc19a1250967854715 100644 (file)
--- a/v7/src/sos/class.scm
+++ b/v7/src/sos/class.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: class.scm,v 1.4 1997/06/19 20:22:51 cph Exp $
+;;; $Id: class.scm,v 1.5 1997/06/25 03:42:11 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -105,7 +105,7 @@
   (or (list-search-positive (class/slots class)
        (lambda (slot)
          (eq? name (slot-name slot))))
-      (and error? (error:bad-range-argument name 'CLASS-SLOT))))
+      (and error? (error:no-such-slot class name))))
 
 (define (class->dispatch-tag class)
   (guarantee-class class 'CLASS->DISPATCH-TAG)

diff --git a/v7/src/sos/sos.pkg b/v7/src/sos/sos.pkg
index f621ae4a4c8759e09b797881e347f99e3d70cdfe..41118eb8887b1f6932a7bbab289e3b3369d0cf6a 100644 (file)
--- a/v7/src/sos/sos.pkg
+++ b/v7/src/sos/sos.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sos.pkg,v 1.5 1997/06/19 21:28:26 cph Exp $
+$Id: sos.pkg,v 1.6 1997/06/25 03:43:03 cph Exp $
 
 Copyright (c) 1995-97 Massachusetts Institute of Technology
 
@@ -65,7 +65,10 @@ MIT in each case. |#
   (export (sos class)
          canonicalize-slot-argument
          compute-slot-descriptor
-         install-slot-accessor-methods))
+         error:no-such-slot
+         install-slot-accessor-methods)
+  (import (runtime record-slot-access)
+         error:no-such-slot))
 
 (define-package (sos class)
   (files "class")