Commit 871611a0 authored by Zach Beane's avatar Zach Beane
Browse files

The TILDE-EXPAND-UNIX-NAMESTRING stuff.

Don't do anything real, though.
parent 63b26bd0
......@@ -135,6 +135,9 @@ values otherwise."
nil
(values-list (list* t ,result))))))
(defun excl::tilde-expand-unix-namestring (namestring)
(merge-pathnames namestring))
(defun excl:run-shell-command (program
&key input output error-output separate-streams
wait environment show-window)
......
......@@ -2,6 +2,8 @@
(in-package #:zacl)
(defvar sys:*tilde-expand-namestrings* nil)
(define-symbol-macro sys:*current-process* (current-thread))
(defun sys::thread-bindstack-index (&rest args)
......
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