Loading disk.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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) Loading mop.lisp +1 −3 Original line number Diff line number Diff line Loading @@ -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)) Loading Loading
disk.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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) Loading
mop.lisp +1 −3 Original line number Diff line number Diff line Loading @@ -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)) Loading