quek

;; -*- Mode: Lisp; Syntax: Common-Lisp -*-
;;
;; 第1回 Scheme コードバトン (CL fork)
;;
;; ■ これは何か？
;;   「Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。」のCL版です。
;;   次回 Shibuya.lisp で成果を発表します。
;;   Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール

quek

Index: level-1/l1-files.lisp
===================================================================
--- level-1/l1-files.lisp	(revision 12400)
+++ level-1/l1-files.lisp	(working copy)
@@ -700,7 +700,11 @@
     (t (cond ((string= name "*") :wild)
              ((string= name "**") :wild-inferiors)
 	     ((string= name "..") :up)
-             (t (%path-std-quotes name "/:;*" "/:;"))))))
+             (t