Changeset 7517


Ignore:
Timestamp:
Oct 25, 2007, 2:20:55 PM (14 years ago)
Author:
mikel
Message:

added a definition for ccl::%rmdir

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/linux-files.lisp

    r7420 r7517  
    186186        (setf (%get-byte name last) 0))
    187187    (syscall syscalls::mkdir name mode))))
     188
     189(defun %rmdir (name)
     190  (let* ((last (1- (length name))))
     191    (with-cstrs ((name name))
     192      (when (and (>= last 0)
     193                 (eql (%get-byte name last) (char-code #\/)))
     194        (setf (%get-byte name last) 0))
     195    (syscall syscalls::rmdir name))))
    188196
    189197(defun getenv (key)
Note: See TracChangeset for help on using the changeset viewer.