Commit 480ad121 authored by Stas Boukarev's avatar Stas Boukarev
Browse files

Clean up.

parent 2c8e354f
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -332,8 +332,8 @@
(defmethod object-size ((float float))
  (+ 1
     (etypecase float
       (single-float +single-float-length+)
       (double-float +double-float-length+))))
       (single-float 4)
       (double-float 8))))

(defun write-8-bytes (n stream)
  (write-n-bytes (ldb (byte 32 0) n) 4 stream)
+1 −3
Original line number Diff line number Diff line
@@ -176,12 +176,10 @@

(defclass identifiable (standard-object)
  ((id :accessor id
       :initarg :id
       :initform nil
       :storep nil
       :read-only-p t)
   (relations :initarg :relations
              :initform nil
   (relations :initform nil
              :accessor relations
              :storep nil
              :read-only-p t))