diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 17:08:25 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 17:08:25 +0100 |
| commit | a3ef85dc301454c108ba5e97a4ff5cf0a24e8acb (patch) | |
| tree | d1cd5dee490289944905805e4d3f9f5fe384029c /Lisp/memory-management.lisp | |
| parent | b0ec6dfd9f29ca0c6e5d1867c87ee78b1cc0e1eb (diff) | |
Minor cleanups.
darcs-hash:57b1ce2455369fba915bd730fe63eacb3e169a25
Diffstat (limited to 'Lisp/memory-management.lisp')
| -rw-r--r-- | Lisp/memory-management.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/memory-management.lisp b/Lisp/memory-management.lisp index b625b8f..d603092 100644 --- a/Lisp/memory-management.lisp +++ b/Lisp/memory-management.lisp @@ -75,7 +75,8 @@ ;; By the way, is using the return value of SETF considered bad style? (let* ((constructor (case class ((exception) #'make-condition) - (otherwise #'make-instance)))(*in-make-pointer-wrapper-p* t) + (otherwise #'make-instance))) + (*in-make-pointer-wrapper-p* t) (new-wrapper (apply constructor ;; We do not create direct instances of ID ;; anymore. Instead, we look for the |