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

fons · Oct 19, 2010 · 9ab39e2 · 9ab39e2
1 parent a61c637
commit 9ab39e2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/cl-mongo.asd b/cl-mongo.asd
@@ -13,7 +13,7 @@
   :depends-on (:uuid
 	       :babel
 	       :bordeaux-threads
-	       ;;:documentation-template
+	       :documentation-template
 	       :lisp-unit
 	       :parenscript
 	       :usocket)

diff --git a/src/mem.lisp b/src/mem.lisp
@@ -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)