home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / lisp / mcl / 1323 < prev    next >
Encoding:
Text File  |  1992-08-26  |  2.3 KB  |  66 lines
  1. Newsgroups: comp.lang.lisp.mcl
  2. Path: sparky!uunet!math.fu-berlin.de!fauern!dec16!wina65.informatik.uni-wuerzburg.de!user
  3. From: poeck@informatik.uni-wuerzburg.de (karsten poeck)
  4. Subject: Re: files-in-directory
  5. Message-ID: <poeck-270892100801@wina65.informatik.uni-wuerzburg.de>
  6. Followup-To: comp.lang.lisp.mcl
  7. Sender: news@informatik.uni-wuerzburg.de (USENET News account)
  8. Organization: university of wuerzburg
  9. References: <EeafXB200iUx4_kZIQ@andrew.cmu.edu>
  10. Date: Thu, 27 Aug 1992 08:07:43 GMT
  11. Lines: 53
  12.  
  13. In article <EeafXB200iUx4_kZIQ@andrew.cmu.edu>, sr0o+@andrew.cmu.edu
  14. (Steven Ritter) wrote:
  15. > 
  16. > I have just moved to a quadra, so I'm moving from MCL 1.3.2 to 2.0
  17. > (beta). Some of my code uses a function called files-in-directory, which
  18. > returns a list of files in the specified directory. I can't find
  19. > anything similar in 2.0. Is there an equivalent? Are there lots of other
  20.  
  21. Try
  22.  
  23. (defun b=erzeuge-String (irgendetwas)
  24.   "Ausgabe: macht aus irgendwas einen String, nil wird zu \"\""
  25.   ;Autor: Karsten
  26.   (cond   ((keywordp irgendetwas)(format nil "~s" irgendetwas))
  27.           ((null irgendetwas) "")
  28.           ((symbolp irgendetwas) (string irgendetwas))
  29.           ((stringp irgendetwas) irgendetwas)
  30.           ((typep irgendetwas 'Character)(string irgendetwas))
  31.           (t (format nil "~a" irgendetwas))))
  32.  
  33.  
  34. (defun b=konkateniere-nach-String (&rest Parameter)
  35.   "Eingabe: Beliebig viele Parameter vom beliebigen Typ
  36.   Ausgabe: Konkatenierter String"
  37.   ;Autor: Karsten        
  38.   (reduce #'(lambda(a b)
  39.              (concatenate `string a b))
  40.           (mapcar #'(lambda(was)
  41.                      (if (stringp was)
  42.                        was
  43.                        (b=erzeuge-string was)))
  44.                   parameter)))
  45.  
  46. (defun files-in-directory (was)
  47.   (directory (b=konkateniere-nach-string was "*")
  48.              :files t
  49.              :directories nil))
  50.  
  51. (defun directories-in-directory (was)
  52.   (directory (b=konkateniere-nach-string was "*")
  53.              :files nil
  54.              :directories t))
  55.  
  56. > differences between 1.3.2 and 2.0? Sorry I don't have any documentation
  57. The whole window package is different,  object lisp is replaced by clos
  58. cltl1 is replaced by cltl2
  59. > -- CMU has a site license. Also, does the final version of 2.0 run on
  60. > the quadra with the cache on?
  61. > 
  62. YES, fine
  63. > Steve
  64.  
  65. Karsten
  66.