(FILECREATED "29-Aug-85 12:55:43" {DSK}<LISPFILES>MATT>CD-COMMAND.;4
 1496   

      changes to:  (VARS CD-COMMANDCOMS)
		   (FNS CD)
		   (PROPS (CD FILETYPE))
		   (LISPXMACROS CD)

      previous date: "28-Aug-85 14:50:10" {DSK}<LISPFILES>MATT>CD-COMMAND.;1)


(* Copyright (c) 1985 by Beckman Instruments, Inc.. All rights reserved.)

(PRETTYCOMPRINT CD-COMMANDCOMS)

(RPAQQ CD-COMMANDCOMS
 ((FNS CD)
		       (LISPXMACROS CD)
		       (INITVARS (CD-ROOTDIR LOGINHOST/DIR))
		       (PROP FILETYPE CD)))
(DEFINEQ

(CD

  [LAMBDA (CDIR)                                             (* mth: "29-Aug-85 12:54")

    (DECLARE
 (
GLOBALVARS
 CD-ROOTDIR))
    (LET ((CURDIR (
DIRECTORYNAME
 T)))
      (if
 [
NOT
 (
FMEMB
 (
NTHCHARCODE
 CURDIR -1)
		      (
CHARCODE
 (> }]
	  then
 (
SETQ
 CURDIR (
CONCAT
 CURDIR ">")))
      (
/CNDIR
 (if
 CDIR
		  then
 (if
 (
FMEMB
 CDIR (
QUOTE
 (? %.)))
			   then
 (printout
 T "You are connected to " CURDIR T)
				T
			 elseif
 (
EQ
 CDIR (
QUOTE
 <))
			   then
 CD-ROOTDIR
			 else
 (
SELCHARQ
 (
NTHCHARCODE
 CDIR 1)
					(> (
PACK*
 CURDIR (
SUBSTRING
 CDIR 2 -1)
						  ">"))
					(({ <)
					  CDIR)
					(
PACK*
 CD-ROOTDIR CDIR ">"])
)

(ADDTOVAR LISPXMACROS
 [CD (CD (CAR (NLAMBDA.ARGS LISPXLINE])

(RPAQ? CD-ROOTDIR
 LOGINHOST/DIR)

(PUTPROPS CD FILETYPE
 CLISP)
(PUTPROPS CD-COMMAND COPYRIGHT ("Beckman Instruments, Inc." 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (516 1269 (CD 526 . 1267)))))
STOP