Changeset 7646


Ignore:
Timestamp:
Nov 15, 2007, 7:25:17 PM (12 years ago)
Author:
gb
Message:

Spell WITH-UTF-8-CSTRS correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r7624 r7646  
    204204(defun %rmdir (name)
    205205  (let* ((last (1- (length name))))
    206     (#+darwin-target with-utf8-cstrs #-darwin-target with-cstrs ((name name))
     206    (#+darwin-target with-utf-8-cstrs #-darwin-target with-cstrs ((name name))
    207207      (when (and (>= last 0)
    208208                 (eql (%get-byte name last) (char-code #\/)))
Note: See TracChangeset for help on using the changeset viewer.