/[cmucl]/src/pcl/defs.lisp
ViewVC logotype

Diff of /src/pcl/defs.lisp

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

revision 1.44 by rtoy, Sat May 24 14:41:39 2008 UTC revision 1.45 by rtoy, Fri Mar 19 15:19:03 2010 UTC
# Line 25  Line 25 
25  ;;; *************************************************************************  ;;; *************************************************************************
26    
27  (in-package :pcl)  (in-package :pcl)
28    (intl:textdomain "cmucl")
29    
30  #-(or loadable-pcl bootable-pcl)  #-(or loadable-pcl bootable-pcl)
31  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
32    (when (eq *boot-state* 'complete)    (when (eq *boot-state* 'complete)
33      (error "~@<Trying to load (or compile) PCL in an environment in which it ~      (error _"~@<Trying to load (or compile) PCL in an environment in which it ~
34              has already been loaded.  This doesn't work, you will have to ~              has already been loaded.  This doesn't work, you will have to ~
35              get a fresh lisp (reboot) and then load PCL.~@:>"))              get a fresh lisp (reboot) and then load PCL.~@:>"))
36    
37    (when *boot-state*    (when *boot-state*
38      (cerror "Try loading (or compiling) PCL anyways."      (cerror _"Try loading (or compiling) PCL anyways."
39              "~@<Trying to load (or compile) PCL in an environment in which it ~              "~@<Trying to load (or compile) PCL in an environment in which it ~
40               has already been partially loaded.  This may not work, you may ~               has already been partially loaded.  This may not work, you may ~
41               need to get a fresh lisp (reboot) and then load PCL.~@:>")))               need to get a fresh lisp (reboot) and then load PCL.~@:>")))
# Line 145  Line 146 
146           t)           t)
147          ((consp specl)          ((consp specl)
148           (unless (member (car specl) '(class class-eq eql))           (unless (member (car specl) '(class class-eq eql))
149             (error "~@<~S is not a legal specializer type.~@:>" specl))             (error _"~@<~S is not a legal specializer type.~@:>" specl))
150           specl)           specl)
151          ((progn          ((progn
152             (when (symbolp specl)             (when (symbolp specl)
# Line 155  Line 156 
156                 (specializerp specl)))                 (specializerp specl)))
157           (specializer-type specl))           (specializer-type specl))
158          (t          (t
159           (error "~@<~s is neither a type nor a specializer.~@:>" specl))))           (error _"~@<~s is neither a type nor a specializer.~@:>" specl))))
160    
161  (defun type-class (type)  (defun type-class (type)
162    (declare (special *the-class-t*))    (declare (special *the-class-t*))
# Line 163  Line 164 
164    (if (atom type)    (if (atom type)
165        (if (eq type t)        (if (eq type t)
166            *the-class-t*            *the-class-t*
167            (internal-error "Bad argument to type-class."))            (internal-error _"Bad argument to type-class."))
168        (case (car type)        (case (car type)
169          (eql (class-of (cadr type)))          (eql (class-of (cadr type)))
170          (class-eq (cadr type))          (class-eq (cadr type))
# Line 211  Line 212 
212               (specializerp type))               (specializerp type))
213           (specializer-type type))           (specializer-type type))
214          (t          (t
215           (error "~s is not a type." type))))           (error _"~s is not a type." type))))
216    
217  ;;; internal to this file...  ;;; internal to this file...
218  (defun convert-to-system-type (type)  (defun convert-to-system-type (type)
# Line 628  Line 629 
629      :initarg :allocation      :initarg :allocation
630      :accessor slot-definition-allocation)      :accessor slot-definition-allocation)
631     (allocation-class     (allocation-class
632      :documentation "For class slots, the class defininig the slot.      :documentation _N"For class slots, the class defininig the slot.
633  For inherited class slots, this is the superclass from which the slot  For inherited class slots, this is the superclass from which the slot
634  was inherited."  was inherited."
635      :initform nil      :initform nil

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5