PPT Slide

( cond

( ( plusp X ) 1 )

( ( minusp X ) -1 )

( ( zerop X ) 0 )

)

(cond

( ( atom X ) X )

( T ( SETF FLAG T ) (car X ) )

)

( cond

( ( null L ) NIL )

( ( atom L ) ( f L ) )

( T (or (f (car L ) ) (f ( cdr L ) ) ) )

)

( cond

( ( match X ’noun ) (nprocess X ) )

( ( match X ’verb ) (vprocess X ) )

( ( match X ’adjective ) ( adjprocess X ) )

( ( match X ’adverb ) ( advprocess X ) )

( ( match X ’article ) ( artprocess X ) )

( ( match X ’preposition ) ( pprocess X ) )

( T ( errormsg X ) )

)

1.21

Previous slide

Next slide

Back to first slide

View graphic version