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

Clean up.

parent 2c8e354f
......@@ -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)
......
......@@ -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))
......
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