diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 9d349557b45ce863eca52dea405db6a741e21cbe..2ef07fecdf865780d7c1582d6d39d9dda2d155d5 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -137,7 +137,7 @@ by /bin/sh in POSIX" ;;;; Slurping a stream, typically the output of another program (with-upgradability () (defgeneric slurp-input-stream (processor input-stream &key &allow-other-keys)) - + #-(or gcl2.6 genera) (defmethod slurp-input-stream ((function function) input-stream &key &allow-other-keys) (funcall function input-stream))