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