~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/lsp/packlib.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
;;;;  -*- Mode: Lisp; Syntax: Common-Lisp; Package: SYSTEM -*-
 
2
;;;;
1
3
;;;;  Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.
2
4
;;;;  Copyright (c) 1990, Giuseppe Attardi.
3
5
;;;;
193
195
               ((= i len) nil)
194
196
             (declare (fixnum len i))
195
197
             (when (char/= #\. (char name i)) (return i)))))
196
 
    (when (char= #\. (char name 0))
 
198
    (when (and (stringp name)
 
199
               (plusp (length name))
 
200
               (char= #\. (char name 0)))
197
201
      (let* ((last-dot-position (or (find-non-dot name) (length name)))
198
202
             (n-dots (the 'fixnum last-dot-position))
199
203
             (name (subseq name last-dot-position)))
270
274
        (let* ((package-name (package-name package))
271
275
               (prefix (string-prefix-p parent-prefix package-name)))
272
276
          (when (and prefix (or recurse (not (find #\. package-name :start prefix))))
273
 
            (pushnew package res)))))))
 
 
b'\\ No newline at end of file'
 
277
            (pushnew package res)))))))