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