X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=b0f5fbc9b900123bb61b35942e0765486c93d691;hb=03e8baab974e52e86df105ee269e83efd65e3d8e;hp=b9d91510f6c90b451ce6ec5ab154331c3a5740ee;hpb=e6f4c7523aa628ece995ee01879d3fb90eed6d9f;p=sbcl.git diff --git a/src/code/gc.lisp b/src/code/gc.lisp index b9d9151..b0f5fbc 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -164,16 +164,17 @@ run in any thread.") (old %gc-logfile)) (setf %gc-logfile new) (when old - (sb!alien:free-alien old)))) + (sb!alien:free-alien old)) + pathname)) (defun gc-logfile () #!+sb-doc "Return the pathname used to log garbage collections. Can be SETF. Default is NIL, meaning collections are not logged. If non-null, the designated file is opened before and after each collection, and generation statistics are appended to it." - (let ((val %gc-logfile)) + (let ((val (cast %gc-logfile c-string))) (when val - (native-pathname (cast val c-string))))) + (native-pathname val)))) (declaim (inline dynamic-space-size)) (defun dynamic-space-size () "Size of the dynamic space in bytes."