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

Clean up.

parent 2c8e354f
...@@ -332,8 +332,8 @@ ...@@ -332,8 +332,8 @@
(defmethod object-size ((float float)) (defmethod object-size ((float float))
(+ 1 (+ 1
(etypecase float (etypecase float
(single-float +single-float-length+) (single-float 4)
(double-float +double-float-length+)))) (double-float 8))))
(defun write-8-bytes (n stream) (defun write-8-bytes (n stream)
(write-n-bytes (ldb (byte 32 0) n) 4 stream) (write-n-bytes (ldb (byte 32 0) n) 4 stream)
......
...@@ -176,12 +176,10 @@ ...@@ -176,12 +176,10 @@
(defclass identifiable (standard-object) (defclass identifiable (standard-object)
((id :accessor id ((id :accessor id
:initarg :id
:initform nil :initform nil
:storep nil :storep nil
:read-only-p t) :read-only-p t)
(relations :initarg :relations (relations :initform nil
:initform nil
:accessor relations :accessor relations
:storep nil :storep nil
:read-only-p t)) :read-only-p t))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment