Changeset 3763


Ignore:
Timestamp:
09/14/03 16:04:38 (19 years ago)
Author:
piso
Message:

+ (unless (consp package-list)
+ (setq package-list (list package-list)))

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/with-package-iterator.lisp

    r3635 r3763  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: with-package-iterator.lisp,v 1.1 2003-09-09 13:30:52 piso Exp $
     4;;; $Id: with-package-iterator.lisp,v 1.2 2003-09-14 16:04:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(defun package-iterator-function (package-list symbol-types)
     23  (unless (consp package-list)
     24    (setq package-list (list package-list)))
    2325  (let ((results ()))
    2426    (dolist (pkg package-list)
Note: See TracChangeset for help on using the changeset viewer.