From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Jun 1997 03:43:03 +0000 (+0000)
Subject: Signal CONDITION-TYPE:NO-SUCH-SLOT when given an invalid slot name.
X-Git-Tag: 20090517-FFI~5112
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0369fe849bbeb7719d598d1acf2a74ec81e380e8;p=mit-scheme.git

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 b98e8cfd2..c1d3aa7a6 100644
--- 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 f621ae4a4..41118eb88 100644
--- 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")