From 3c3b64ad1b87dea93ca86a9aca18052c2c432e6a Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Wed, 16 Apr 2003 14:04:50 +0000
Subject: [PATCH] 	ANSI fixes.

	* src/code/symbol.lisp (get-properties, getf): Signal type-error
	instead of program-error.
---
 code/symbol.lisp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/code/symbol.lisp b/code/symbol.lisp
index adf367692..063f9df29 100644
--- a/code/symbol.lisp
+++ b/code/symbol.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.31 2002/08/23 18:31:05 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.32 2003/04/16 14:04:50 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -157,7 +157,11 @@
   (do ((plist place (cddr plist)))
       ((null plist) default)
     (cond ((atom (cdr plist))
-	   (simple-program-error "~S is a malformed property list." place))
+	   (error 'simple-type-error
+		  :datum place
+		  :expected-type 'list
+		  :format-control "Malformed property list: ~S"
+		  :format-arguments (list place)))	   
 	  ((eq (car plist) indicator)
 	   (return (cadr plist))))))
 
@@ -178,7 +182,11 @@
   (do ((plist place (cddr plist)))
       ((null plist) (values nil nil nil))
     (cond ((atom (cdr plist))
-	   (simple-program-error "~S is a malformed property list." place))
+	   (error 'simple-type-error
+		  :datum place
+		  :expected-type 'list
+		  :format-control "Malformed property list: ~S"
+		  :format-arguments (list place)))
 	  ((memq (car plist) indicator-list)
 	   (return (values (car plist) (cadr plist) plist))))))
 
-- 
GitLab