From bcf646e7f6a471460afe3afc448d2d67cba360d3 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 12 Mar 2011 02:19:36 +0100 Subject: [PATCH] Remove unused variables --- src/os/create-process-unix.lisp | 4 ++-- src/os/os-unix.lisp | 3 +-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/os/create-process-unix.lisp b/src/os/create-process-unix.lisp index 5643362..2d136ee 100644 --- a/src/os/create-process-unix.lisp +++ b/src/os/create-process-unix.lisp @@ -113,7 +113,7 @@ (when ,file-actions-initialized-p (lfp-spawn-file-actions-destroy ,file-actions))))))) -(defun allocate-argv (argv argc program arglist) +(defun allocate-argv (argv program arglist) ;; copy program name (setf (mem-aref argv :pointer 0) (foreign-string-alloc program)) @@ -138,7 +138,7 @@ (isys:bzero ,argv (* ,argc (isys:sizeof :pointer))) (unwind-protect (progn - (allocate-argv ,argv ,argc ,program ,arguments) + (allocate-argv ,argv ,program ,arguments) (let ((,arg0 (mem-ref ,argv :pointer))) ,@body)) (deallocate-null-ended-list ,argv)))))) diff --git a/src/os/os-unix.lisp b/src/os/os-unix.lisp index 629609d..439714b 100644 --- a/src/os/os-unix.lisp +++ b/src/os/os-unix.lisp @@ -115,8 +115,7 @@ of SETF ENVIRONMENT." newenv) (defun allocate-env (argv variables) - (let ((argc (hash-table-count variables)) - (offset -1)) + (let ((offset -1)) ;; copy variables (maphash (lambda (k v) (setf (mem-aref argv :pointer (incf offset)) -- 2.11.4.GIT