src/optparse.lisp: Rearrange system-specific stuff.

[sod] / src / class-finalize-impl.lisp

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index b0e31ce1c8eabbdac55c5a16b0b9b9a43ca7a6fb..25ce1c22a594587c3eaaa77a3348a8ac80846a34 100644 (file)
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;

-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.

 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by


@@ -350,7 +350,7 @@ (defmethod finalize-sod-class ((class sod-class))
       ((nil)
 
        ;; If this fails, mark the class as a loss.
       ((nil)
 
        ;; If this fails, mark the class as a loss.

-       (setf (sod-class-state class) :broken)
+       (setf (slot-value class 'state) :broken)

 
        ;; Finalize all of the superclasses.  There's some special pleading
        ;; here to make bootstrapping work: we don't try to finalize the
 
        ;; Finalize all of the superclasses.  There's some special pleading
        ;; here to make bootstrapping work: we don't try to finalize the


@@ -366,7 +366,7 @@ (defmethod finalize-sod-class ((class sod-class))
           (finalize-sod-class metaclass)))
 
        ;; Stash the class's type.
           (finalize-sod-class metaclass)))
 
        ;; Stash the class's type.

-       (setf (sod-class-type class)
+       (setf (slot-value class '%type)

             (make-class-type (sod-class-name class)))
 
        ;; Clobber the lists of items if they've not been set.
             (make-class-type (sod-class-name class)))
 
        ;; Clobber the lists of items if they've not been set.


@@ -388,7 +388,7 @@ (defmethod finalize-sod-class ((class sod-class))
         (setf (values chain-head chain chains) (compute-chains class)))
 
        ;; Done.
         (setf (values chain-head chain chains) (compute-chains class)))
 
        ;; Done.

-       (setf (sod-class-state class) :finalized)
+       (setf (slot-value class 'state) :finalized)

        t)
 
       (:broken
        t)
 
       (:broken