Commit d9779258 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Trivial tweaks.

parent 910ddc6f
Copyright (c) 2008-2010 ITA Software, Inc.
Copyright (c) 2008-2011 ITA Software, Inc.
Copyright (c) 2011-2012 Google, Inc.
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
......
......@@ -168,6 +168,7 @@
(*print-pretty* nil); otherwise SBCL will slow us down a lot.
(lisp-env-var (lisp-environment-variable-name :prefix nil))
(*lisp-executable-pathname* ;; magic escape!
;; NIY, blaze escape rather than Makefile escape
(list :blaze-BUILD "${" lisp-env-var "}")))
(log-format 9 "output-path: ~S" output-path)
(log-format 9 "default-output-path: ~S" default-output-path)
......
......@@ -475,7 +475,9 @@ Useful for portably flushing I/O before user input or program exit."
;;; Output helpers
(defgeneric call-with-output (x thunk)
(:documentation ;; from fare-utils
(:documentation
;; code from fare-utils base/streams where it's now named
;; call-with-output-stream to avoid the package clash in a lot of my code.
"Calls FUN with an actual stream argument, behaving like FORMAT with respect to stream'ing:
If OBJ is a stream, use it as the stream.
If OBJ is NIL, use a STRING-OUTPUT-STREAM as the stream, and return the resulting string.
......
......@@ -27,9 +27,6 @@
#:while-collecting
#:orf)
(:shadowing-import-from :xcvb-driver
#:with-output)
(:import-from :asdf
#:*default-source-registry-exclusions*
#:*default-source-registries*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment