Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Vladimir Sedach
storage
Commits
480ad121
Commit
480ad121
authored
Feb 13, 2012
by
Stas Boukarev
Browse files
Clean up.
parent
2c8e354f
Changes
2
Hide whitespace changes
Inline
Side-by-side
disk.lisp
View file @
480ad121
...
@@ -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
)
...
...
mop.lisp
View file @
480ad121
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment