-(defun do-gc-portably ()
- ;; cmucl on linux has generational gc with a keyword argument,
- ;; sbcl GC function takes same arguments no matter what collector is in
- ;; use
- #+(or sbcl gencgc) (SB-EXT:gc :full t)
- ;; other platforms have full gc or nothing
- #-(or sbcl gencgc) (sb-ext:gc))
-