r1728: *** empty log message ***
[uffi.git] / examples / getshells.cl
index 999385241f50a16372716157d8736a8347e69a63..ef6bacd4d73108f55a803de540c04acf2f5a3ba0 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Mar 2002
 ;;;;
-;;;; $Id: getshells.cl,v 1.5 2002/03/14 21:03:12 kevin Exp $
+;;;; $Id: getshells.cl,v 1.6 2002/04/02 21:29:45 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -42,6 +42,6 @@
     (endusershell)
     (nreverse shells)))
 
-#+test-uffi
+#+examples-uffi
 (format t "~&Shells: ~S" (getshells))