From 7d83fdc11d24e1127a1c4d1d0f91fd3091b854fe Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 13 Mar 2011 20:28:25 +0100 Subject: [PATCH] Grammatical fix --- src/os/create-process-unix.lisp | 2 +- src/os/os-unix.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/os/create-process-unix.lisp b/src/os/create-process-unix.lisp index 2d136ee..dc3088c 100644 --- a/src/os/create-process-unix.lisp +++ b/src/os/create-process-unix.lisp @@ -141,7 +141,7 @@ (allocate-argv ,argv ,program ,arguments) (let ((,arg0 (mem-ref ,argv :pointer))) ,@body)) - (deallocate-null-ended-list ,argv)))))) + (delocate-null-ended-list ,argv)))))) (defun redirect-one-stream (file-actions fd stream &optional flags (mode #o644) close-old-fd) (flet ((dup-from-path (path) diff --git a/src/os/os-unix.lisp b/src/os/os-unix.lisp index 439714b..db631b5 100644 --- a/src/os/os-unix.lisp +++ b/src/os/os-unix.lisp @@ -122,7 +122,7 @@ of SETF ENVIRONMENT." (foreign-string-alloc (concatenate 'string k "=" v)))) variables))) -(defun deallocate-null-ended-list (argv) +(defun delocate-null-ended-list (argv) (loop :for i :from 0 :for ptr := (mem-aref argv :pointer i) :if (null-pointer-p ptr) :do (loop-finish) @@ -147,7 +147,7 @@ of SETF ENVIRONMENT." (progn (allocate-env ,ptr (environment-variables ,environment)) (,body-fn ,ptr)) - (deallocate-null-ended-list ,ptr))))))))) + (delocate-null-ended-list ,ptr))))))))) ;;;; Current directory -- 2.11.4.GIT