Permalink
Browse files

added doc-template back; mem.lisp only for sbcl

  • Loading branch information...
1 parent a61c637 commit 9ab39e2afa7883fddfeb2d961b020f322b087747 alfons haffmans committed Oct 19, 2010
Showing with 3 additions and 3 deletions.
  1. +1 −1 cl-mongo.asd
  2. +2 −2 src/mem.lisp
View
@@ -13,7 +13,7 @@
:depends-on (:uuid
:babel
:bordeaux-threads
- ;;:documentation-template
+ :documentation-template
:lisp-unit
:parenscript
:usocket)
View
@@ -1,13 +1,13 @@
(in-package :cl-mongo)
-(defun gen-clean (gen)
+#+sbcl(defun gen-clean (gen)
(let ((thr (sb-ext:generation-minimum-age-before-gc gen)))
(setf (sb-ext:generation-minimum-age-before-gc gen) 0.d0)
(sb-ext:gc :gen gen)
(setf (sb-ext:generation-minimum-age-before-gc gen) thr)))
-(defun reclaim-memory()
+#+sbcl(defun reclaim-memory()
(dotimes (gen 7)
(progn
;;(format t "hello ~A~%" gen)

0 comments on commit 9ab39e2

Please sign in to comment.