/[cmucl]/src/code/string.lisp
ViewVC logotype

Diff of /src/code/string.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pw, Sun Mar 4 23:37:33 2001 UTC revision 1.11 by pw, Sun Jun 17 19:12:34 2001 UTC
# Line 9  Line 9 
9  ;;;  ;;;
10  ;;; **********************************************************************  ;;; **********************************************************************
11  ;;;  ;;;
12  ;;; Functions to implement strings for Spice Lisp  ;;; Functions to implement strings for CMU Common Lisp
13  ;;; Written by David Dill  ;;; Written by David Dill
14  ;;; Rewritten by Skef Wholey, Bill Chiles and Rob MacLachlan.  ;;; Rewritten by Skef Wholey, Bill Chiles and Rob MacLachlan.
15  ;;;  ;;;
 ;;; Runs in the standard Spice Lisp environment.  
 ;;;  
16  ;;; ****************************************************************  ;;; ****************************************************************
17  ;;;  ;;;
18  (in-package "LISP")  (in-package "LISP")
# Line 40  Line 38 
38           (let ((res (make-string 1)))           (let ((res (make-string 1)))
39             (setf (schar res 0) x) res))             (setf (schar res 0) x) res))
40          (t          (t
41           (error "~S cannot be coerced to a string." x))))           (error 'simple-type-error
42                    :datum x
43                    :expected-type '(or string symbol character)
44                    :format-control "~S cannot be coerced to a string."
45                    :format-arguments (list x)))))
46    
47  ;;; With-One-String is used to set up some string hacking things.  The keywords  ;;; With-One-String is used to set up some string hacking things.  The keywords
48  ;;; are parsed, and the string is hacked into a simple-string.  ;;; are parsed, and the string is hacked into a simple-string.

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5