perm filename SCAN[206,LSP] blob sn#145197 filedate 1975-02-12 generic text, type T, neo UTF8

(DEFPROP SCANFNS
 (NIL SETSCANTABLE SCANPUSH SCANPOP)
VALUE)

(DEFPROP SETSCANTABLE
 (LAMBDA(U)
  (PROG	(N)
	(SETQ N 0)
   L	(MODCHR N (CAR U))
	(SETQ N (ADD1 N))
	(SETQ U (CDR U))
	(COND (U (GO L)))))
EXPR)

(DEFPROP SCANPUSH
 (LAMBDA NIL (SETSCANTABLE LISPSCAN))
EXPR)

(DEFPROP SCANPOP
 (LAMBDA NIL (SETSCANTABLE PROGSCAN))
EXPR)