anchor.diff:      (declare (ignore initargs))
       (call-next-method)
   
  -    ;; For some reason I can't figure out, accessors for only the
  -    ;; first direct slot in an alien class gets defined by
  -    ;; PCL. Therefore it has to be done here.
  -    (pcl::fix-slot-accessors class (class-direct-slots class) 'pcl::add)
  -    
       (when alien-name
         (setf (alien-type-name (or name (class-name class))) (first alien-name)))
       (when size
  
positive.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gtype.lisp,v 1.1 2000-08-14 16:44:34 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code:     
        ;; Reverse the direct slot definitions so the effective slots
        ;; will be in correct order.
        (setf direct-slots (reverse direct-slots))
        ;; This nreverse caused me so much frustration that I leave it
        ;; here just as a reminder of what not to do.
  ;      (setf direct-slots (nreverse direct-slots))
        )
      (call-next-method))
  
  
  