Script started on Mon Dec  7 12:20:51 1992
warning: could not update utmp entry
]0; ctec tec/colab1 arctecserv-2 ctec@arctecserv-2: vi my-colab-init.lisp 

7[?47h[24;1H[?1h="my-colab-init.lisp" 5/197 [H[2J;;; -*- Mode: LISP -*-[H
(setf *load-verbose* nil)
(setq *our-fs-path* "/home/ctec/colab1/top/our-fs.lisp")
(setq *my-tree-path* "/home/ctec/colab1/")
(load "/home/ctec/colab1/top/start-colab.lisp")
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~[H[23B"my-colab-init.lisp" 5/197[H[23B[K[J[?1l>[2J[?47l8ctec@arctecserv-2: cat m[K[K[K[Klucid

/usr/local/lucid: Permission denied.
ctec@arctecserv-2: /usr/local/lucid/lisp-4-1-clos

;;; Warning: ADDRESS-UNITS-PER-WORD is not a multiple of the system page siz: 8192 bytes
;;; Lucid Common Lisp/SPARC
;;; Development Environment Version 4.1 Beta DBCS, 9 June 1992
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid and Lucid Common Lisp are trademarks of Lucid, Inc.  Other brand
;;; or product names are trademarks or registered trademarks of their
;;; respective holders.
;;;
;;; This is a preliminary version to be used for testing purposes only.

> (load "my-colab-init")
;;; Loading source file "my-colab-init.lisp"
;;; Warning: File "my-colab-init.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: File "/home/ctec/colab1/top/start-colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
loading start-colab
;;; Loading source file "/home/ctec/colab1/top/our-fs.lisp"
;;; Warning: File "/home/ctec/colab1/top/our-fs.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

"loading pathname abstraction our-fs" 
;;; Loading source file "top/col-keys.lisp"
;;; Warning: File "top/col-keys.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "taxon/col-init-tx.lisp"
;;; Warning: File "taxon/col-init-tx.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "top/defsystem.lisp"
;;; Loading source file "taxon/front-end/tx-signatur.lisp"
;;; Warning: File "taxon/front-end/tx-signatur.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "taxon/front-end/tax-specific.lisp"
;;; Loading source file "top/colab.lisp"
;;; Warning: File "top/colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "top/defsystem.lisp"
;;; Loading source file "RFM/RFM-system.lisp"
;;; Warning: File "RFM/RFM-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "taxon/taxon-system.lisp"
;;; Warning: File "taxon/taxon-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "forward/forward-system.lisp"
;;; Warning: File "forward/forward-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "contax/contax-system.lisp"
;;; Warning: File "contax/contax-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading system RELFUN-AUX
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/aux/aux.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/aux/aux.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system RELFUN-AUX
;;; Loading system RELFUN-RFI
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function MORE-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "prelude.rf" ..
RFI - 4 December 1992
   - functions improved:
      - readl
      - consult/replace
      - lconsult/lreplace
      - batch-command
      - script-command
      - listclass
      - transform-query-for-emulator
      - footen-command
   - new functions:
      - footer
      - showdepth-command
   - pretty-print-functions moved to *lisp-extras*
   - *rfi-readtable* is modified instead of lisp *readtable*
   - spy/nospy also affects compiler/emulator
   - consult/replace works for files with multiple setq or with untagged clauses
   - lconsult/lreplace works also with untagged clauses or expanded macros
   - bar is legalized
   - query for emulator is transformed to special footed-procedure 'main'
   - footer: change radically hn- to ft-clauses
   - showdepth: length spy-trace is displayed with stars
   - PLEASE NOTE: It's enough to say compile (does horizon & verti)
   - call for meta-calls is generalized and renamed to ecal (eval+call)
   - spy shows backquotes of structures bound to variables etc.
   - horizon/compile: flatter, normalize, footen; mode-interpreter interface
   - once, naf, toplevel renamed to relfun, interface function rf
   - initial cut generalized to single cut: (hn (foo _x) ... ! ...)
   - bagof-like tupof: (tupof (likes john _x) `(ok _x)) RETURNS tup of (ok _x)
   - access function rf complies to COLAB specification
   - command deanon for databases and automatic deanonymization of requests
   - COLAB partners fw, cn, tx are NOW ACCESSIBLE AS LISP ***FUNCTIONS***
   - error handling improved and rf-pprint also returns its arg
   - command relationalize (flatten + extrarg) puts return into FIRST arg
   - command singlify transforms multi-footed clauses to single-footed ones
   - commands builtins changed, version introduced
   - flatter now treats complex is lhs
   - database is LIST of lists, or-process has db-left/db-right args, prelude
   - cns is interpreted as LISP cons, normalize command, rf-terpri returns t
   - (foot-)sole cut returns proper value: (ft (foo _x) ... v !) => v'
   - PROLOG-style syntax can be loaded; static-flattener uses mk-inst
   - relfun made recursive for interaction breaks in batch; lisp renamed bye
   - exec made recursive for recursive batch files (cf. recursive includes)
   - value-returning clause primitive (clause `(tag head | body))
   - integrated: PROLOG-style syntax and new horizontals (uncomma ...)
   - date/time-returning date builtin (date); rfi-predicates -> operators
   - report errors to boley@informatik.uni-kl.de
   - start by typing (relfun)

;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function PP-INIT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-EXPR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-FINISH which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HANDLE-RFI-CMD which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PRO-COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function READ-FROM-TERMINAL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function RFI-COMMAND which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system RELFUN-RFI
;;; Loading system RELFUN-CODEGENERATOR
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
Codegenerator 0.53, 19.Sep.90
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Variable *LISP-FUNCTIONS* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *NEXT-CHUNKREG* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; done loading system RELFUN-CODEGENERATOR
;;; Loading system RELFUN-NORMALIZER
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/debug.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/debug.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system RELFUN-NORMALIZER
;;; Loading system RELFUN-MODE-INTERPRETER
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-rfi-interface.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-rfi-interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system RELFUN-MODE-INTERPRETER
;;; Loading system RELFUN-EMULATOR
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Expanding Dynamic Memory
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
NyWam --- Version 0.23g --- 14 Feb 92
;;; Warning: Redefining Variable *EMU-DEBUG* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNTYPE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNMACRO which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNOR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNLAMBDA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HOTRANS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNCOMMA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"

;;; done loading system RELFUN-EMULATOR
;;; Loading system RELFUN-CLASSIFIER
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

Klassifizierer V 1.0 . Letzte Aenderung: 06. 10. 1990
;;; done loading system RELFUN-CLASSIFIER
;;; Loading system RELFUN-INDEX
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/index/linear.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/index/linear.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system RELFUN-INDEX
;;; Loading system RELFUN
;;; done loading system RELFUN
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "RFM/normalizer/normalizer.lisp"
;;; Loading source file "RFM/colab-interface.lisp"
;;; Warning: File "RFM/colab-interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLAB-RELFUN-HORIZON which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-VERTI which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-COMPILE which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-RFI-CMD-COMPILE which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF-1 which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COL-PROMPT-PRINT which used to be defined in "top/colab.lisp"
;;; Loading source file "top/demo-break.lisp"
;;; Warning: File "top/demo-break.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
#P"/home.arctecserv-2a/ctec/colab1/my-colab-init.lisp"
> (compile-colab)
;;; Loading system CONTAX
;;; Loading source file "assistant-macros.lisp"
;;; Loading source file "assistant-functions.lisp"
;;; Loading source file "constraint-queues.lisp"
;;; Loading source file "hierarchies.lisp"
;;; Loading source file "variables.lisp"
;;; Loading source file "constraints.lisp"
;;; Loading source file "predicates.lisp"
;;; Loading source file "revise.lisp"
;;; Loading source file "control.lisp"
;;; Loading source file "programmer-interface.lisp"
;;; Loading source file "negation.lisp"
;;; Warning: File "negation.lisp" does not begin with IN-PACKAGE.  Loading into package "CONTAX"
;;; Loading source file "colab-interface.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-CONSULT-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading source file "user-interface.lisp"
;;; Loading source file "debugger.lisp"
;;; done loading system CONTAX
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
;;; Loading system TAXON-FRONT-END
;;; Loading source file "geto.lisp"
;;; Warning: File "geto.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "tx-signatur.lisp"
;;; Warning: File "tx-signatur.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "graph.lisp"
;;; Warning: File "graph.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "classify.lisp"
;;; Warning: File "classify.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "psgraph.lisp"
;;; Loading source file "draw-hierarchy.lisp"
;;; Warning: File "draw-hierarchy.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "draw-on-boards.lisp"
;;; Warning: File "draw-on-boards.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "draw-objects-on-boards.lisp"
;;; Warning: File "draw-objects-on-boards.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "abox-manager.lisp"
;;; Warning: File "abox-manager.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "tbox-manager.lisp"
;;; Warning: File "tbox-manager.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "absynt.lisp"
;;; Warning: File "absynt.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "define.lisp"
;;; Warning: File "define.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "sprims.lisp"
;;; Warning: File "sprims.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "push-not.lisp"
;;; Warning: File "push-not.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "assertion.lisp"
;;; Warning: File "assertion.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "ro-predicates.lisp"
;;; Warning: File "ro-predicates.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "predicates.lisp"
;;; Warning: File "predicates.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "exp-asse.lisp"
;;; Warning: File "exp-asse.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "subsumption.lisp"
;;; Warning: File "subsumption.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "filter-graph.lisp"
;;; Warning: File "filter-graph.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "a-reasoning.lisp"
;;; Warning: File "a-reasoning.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "cmds.lisp"
;;; Warning: File "cmds.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "listing.lisp"
;;; Warning: File "listing.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "ind-reasoning.lisp"
;;; Warning: File "ind-reasoning.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "exp-pred.lisp"
;;; Warning: File "exp-pred.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "colab-access.lisp"
;;; Warning: File "colab-access.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "retrieval.lisp"
;;; Warning: File "retrieval.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "trace.lisp"
;;; Warning: File "trace.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Warning: Redefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "ind-reasoning.lisp"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "ind-reasoning.lisp"
;;; Loading source file "switch.lisp"
;;; Warning: File "switch.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "tx.lisp"
;;; Warning: File "tx.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Warning: Redefining Function COLAB-CONSULT-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading source file "help-fu.lisp"
;;; Warning: File "help-fu.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "save-load-graph.lisp"
;;; Warning: File "save-load-graph.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-FRONT-END
;;; Loading system TAXON-PRINT-FCTS
;;; Loading source file "print-fcts.lisp"
;;; Warning: File "print-fcts.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-PRINT-FCTS
;;; Loading system TAXON-REPRESENTATION
;;; Loading source file "cnf-subsumption.lisp"
;;; Warning: File "cnf-subsumption.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "cnf-representation.lisp"
;;; Warning: File "cnf-representation.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "generate-cn.lisp"
;;; Warning: File "generate-cn.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "print-cnf.lisp"
;;; Warning: File "print-cnf.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "tr2knf.lisp"
;;; Warning: File "tr2knf.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "constructors2fkts.lisp"
;;; Warning: File "constructors2fkts.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "get-function.lisp"
;;; Warning: File "get-function.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "object.lisp"
;;; Warning: File "object.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "abstract.lisp"
;;; Warning: File "abstract.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "print-abstracts.lisp"
;;; Warning: File "print-abstracts.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "concrete.lisp"
;;; Warning: File "concrete.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "unknown.lisp"
;;; Warning: File "unknown.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "deref.lisp"
;;; Warning: File "deref.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-REPRESENTATION
;;; Loading system TAXON-SUBSUMPTION
;;; Loading source file "make-subs-rules.lisp"
;;; Warning: File "make-subs-rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "subsumes-weakly.lisp"
;;; Warning: File "subsumes-weakly.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "subs-rules.lisp"
;;; Warning: File "subs-rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-SUBSUMPTION
;;; Loading system TAXON-CONSISTENCY
;;; Loading source file "print-rule.lisp"
;;; Warning: File "print-rule.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "stacks.lisp"
;;; Warning: File "stacks.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "predicates.lisp"
;;; Warning: File "predicates.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "choice-points.lisp"
;;; Warning: File "choice-points.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "clash.lisp"
;;; Warning: File "clash.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "abstract-predicates.lisp"
;;; Warning: File "abstract-predicates.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "agreements.lisp"
;;; Warning: File "agreements.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "backtracking.lisp"
;;; Warning: File "backtracking.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "concrete-predicates.lisp"
;;; Warning: File "concrete-predicates.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "cond-fcts.lisp"
;;; Warning: File "cond-fcts.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "control.lisp"
;;; Warning: File "control.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "init.lisp"
;;; Warning: File "init.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "make-assertions.lisp"
;;; Warning: File "make-assertions.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "make-rules.lisp"
;;; Warning: File "make-rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "pathrules-for-concs.lisp"
;;; Warning: File "pathrules-for-concs.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "pathrules-for-preds.lisp"
;;; Warning: File "pathrules-for-preds.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "process-stacks.lisp"
;;; Warning: File "process-stacks.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "restrictor-rules.lisp"
;;; Warning: File "restrictor-rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "rules.lisp"
;;; Warning: File "rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "types.lisp"
;;; Warning: File "types.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-CONSISTENCY
;;; Loading system TAXON-INCR-REAL-ORD
;;; Loading source file "make-predicates.lisp"
;;; Warning: File "make-predicates.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "print-RO.lisp"
;;; Warning: File "print-RO.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; GC: 589880 words [2359520 bytes] of dynamic storage in use.
;;; 163782 words [655128 bytes] of free storage available before a GC.
;;; 917444 words [3669776 bytes] of free storage available if GC is disabled.
;;; GC: 589880 words [2359520 bytes] of dynamic storage in use.
;;; 163782 words [655128 bytes] of free storage available before a GC.
;;; 917444 words [3669776 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
;;; Loading source file "propagate-number-rest.lisp"
;;; Warning: File "propagate-number-rest.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "propagate-number.lisp"
;;; Warning: File "propagate-number.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "propagate-real.lisp"
;;; Warning: File "propagate-real.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "propagate-symbolic.lisp"
;;; Warning: File "propagate-symbolic.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "representation.lisp"
;;; Warning: File "representation.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "symbolic-clash.lisp"
;;; Warning: File "symbolic-clash.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "propagate-new.lisp"
;;; Warning: File "propagate-new.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; Loading source file "rules.lisp"
;;; Warning: File "rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-INCR-REAL-ORD
;;; Loading system TAXON-CONCRETE
;;; Loading source file "get-rules.lisp"
;;; Warning: File "get-rules.lisp" does not begin with IN-PACKAGE.  Loading into package "TAXON"
;;; done loading system TAXON-CONCRETE
;;; Loading system TAXON
;;; done loading system TAXON
;;; Loading system FW-BASIC
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLAB-CONSULT-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/fc-strategies.rf" ..; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/forward-prelude.rf" ..
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-access.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-access.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-BASIC
;;; Loading system FW-SEMI
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/semi-naive/semi-naive.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/semi-naive/semi-naive.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-SEMI
;;; Loading system FW-META
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function OR-PROCESS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function CLAUSE-T which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function S-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function APPEND-GUARDS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system FW-META
;;; Loading system FW-MAGIC
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/magic/magic-sets.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/magic/magic-sets.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-MAGIC
;;; Loading system FW-INTER
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-horizon-comp.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-horizon-comp.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-INTER
;;; Loading system FW-GASM
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function CLASSIFY-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Warning: Redefining Function WANDEL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function READ-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function GWAM.HAS-FAILED which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function PRINTMSEG which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function SHOW-VALUE-OF-SOMETHING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function VALUE-HELP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/procedures.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/procedures.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-GASM
;;; Loading system FW-EMUL
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/fw-gassem-startup.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/fw-gassem-startup.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-EMUL
;;; Loading system FW-FAM
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable

FAM  Ver 1.1 , 12. Juni 92
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fam/interface.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fam/interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-FAM
;;; Loading system FW-TX
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/tx-transformer.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/tx-transformer.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; done loading system FW-TX
;;; Loading system FORWARD
;;; done loading system FORWARD
;;; Compiling system RELFUN-AUX
;;; You are using the compiler in DEVELOPMENT mode (compilation-speed = 3)
;;; If you want faster code at the expense of longer compile time,
;;; you should use the production mode of the compiler, which can be obtained
;;; by evaluating (proclaim '(optimize (compilation-speed 0)))
;;; Generation of full safety checking code is enabled (safety = 3)
;;; Optimization of tail calls is disabled (speed = 2)
;;; Reading source file "aux.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "aux.sbin"
;;; done compiling system RELFUN-AUX
;;; Compiling system RELFUN-RFI
;;; Reading source file "rfi.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; GC: 785872 words [3143488 bytes] of dynamic storage in use.
;;; 229934 words [919736 bytes] of free storage available before a GC.
;;; 1245740 words [4982960 bytes] of free storage available if GC is disabled.
;;; GC: 785872 words [3143488 bytes] of dynamic storage in use.
;;; 229934 words [919736 bytes] of free storage available before a GC.
;;; 1245740 words [4982960 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
;;; While compiling DATE
;;; Warning: Variable A is bound but not referenced
;;; Warning: Variable G is bound but not referenced
;;; Warning: Variable H is bound but not referenced
;;; Warning: Variable I is bound but not referenced
;;; Writing binary file "rfi.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.sbin"
;;; Warning: Redefining Variable *EMU-DEBUG* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Variable *LISP-FUNCTIONS* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function RFI-COMMAND which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/start-colab.lisp"
;;; Warning: Redefining Function UNCOMMA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function HOTRANS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function UNLAMBDA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function UNOR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function UNMACRO which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function UNTYPE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function OR-PROCESS which used to be defined in "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.lisp"
;;; Warning: Redefining Function APPEND-GUARDS which used to be defined in "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.lisp"
;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Warning: Redefining Function CLAUSE-T which used to be defined in "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.lisp"
;;; Warning: Redefining Function S-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.lisp"
;;; Warning: Redefining Function HANDLE-RFI-CMD which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function PP-INIT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function PP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function PP-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function PP-EXPR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function PP-FINISH which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.lisp"
;;; Warning: Redefining Function READ-FROM-TERMINAL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"
;;; Warning: Redefining Function PRO-COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.lisp"

RFI - 4 December 1992
   - functions improved:
      - readl
      - consult/replace
      - lconsult/lreplace
      - batch-command
      - script-command
      - listclass
      - transform-query-for-emulator
      - footen-command
   - new functions:
      - footer
      - showdepth-command
   - pretty-print-functions moved to *lisp-extras*
   - *rfi-readtable* is modified instead of lisp *readtable*
   - spy/nospy also affects compiler/emulator
   - consult/replace works for files with multiple setq or with untagged clauses
   - lconsult/lreplace works also with untagged clauses or expanded macros
   - bar is legalized
   - query for emulator is transformed to special footed-procedure 'main'
   - footer: change radically hn- to ft-clauses
   - showdepth: length spy-trace is displayed with stars
   - PLEASE NOTE: It's enough to say compile (does horizon & verti)
   - call for meta-calls is generalized and renamed to ecal (eval+call)
   - spy shows backquotes of structures bound to variables etc.
   - horizon/compile: flatter, normalize, footen; mode-interpreter interface
   - once, naf, toplevel renamed to relfun, interface function rf
   - initial cut generalized to single cut: (hn (foo _x) ... ! ...)
   - bagof-like tupof: (tupof (likes john _x) `(ok _x)) RETURNS tup of (ok _x)
   - access function rf complies to COLAB specification
   - command deanon for databases and automatic deanonymization of requests
   - COLAB partners fw, cn, tx are NOW ACCESSIBLE AS LISP ***FUNCTIONS***
   - error handling improved and rf-pprint also returns its arg
   - command relationalize (flatten + extrarg) puts return into FIRST arg
   - command singlify transforms multi-footed clauses to single-footed ones
   - commands builtins changed, version introduced
   - flatter now treats complex is lhs
   - database is LIST of lists, or-process has db-left/db-right args, prelude
   - cns is interpreted as LISP cons, normalize command, rf-terpri returns t
   - (foot-)sole cut returns proper value: (ft (foo _x) ... v !) => v'
   - PROLOG-style syntax can be loaded; static-flattener uses mk-inst
   - relfun made recursive for interaction breaks in batch; lisp renamed bye
   - exec made recursive for recursive batch files (cf. recursive includes)
   - value-returning clause primitive (clause `(tag head | body))
   - integrated: PROLOG-style syntax and new horizontals (uncomma ...)
   - date/time-returning date builtin (date); rfi-predicates -> operators
   - report errors to boley@informatik.uni-kl.de
   - start by typing (relfun)

;;; Reading source file "lisp2pro.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "lisp2pro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.sbin"
;;; Reading source file "pro2lisp.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "pro2lisp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.sbin"
;;; Reading source file "comment.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling BAP->BAL
;;; Warning: Calling PP-CLAUSE with the wrong number of arguments
;;; While compiling PRINT-LSYN-ENUMERATION
;;; Warning: Calling PP-INIT with the wrong number of arguments
;;; Writing binary file "comment.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.sbin"
;;; Reading source file "patches.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "patches.sbin"
;;; done compiling system RELFUN-RFI
;;; Compiling system RELFUN-CODEGENERATOR
;;; Reading source file "absynt.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "absynt.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.sbin"
;;; Reading source file "assocf.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "assocf.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.sbin"
;;; Reading source file "instr.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "instr.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.sbin"
;;; Reading source file "cg5.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "cg5.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.sbin"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.lisp"
Codegenerator 0.53, 19.Sep.90
;;; Reading source file "cgis.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "cgis.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.sbin"
;;; Reading source file "misc.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "misc.sbin"
;;; done compiling system RELFUN-CODEGENERATOR
;;; Compiling system RELFUN-NORMALIZER
;;; Reading source file "normalizer.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "normalizer.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.sbin"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.lisp"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.lisp"
;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Reading source file "debug.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "debug.sbin"
;;; done compiling system RELFUN-NORMALIZER
;;; Compiling system RELFUN-MODE-INTERPRETER
;;; Reading source file "mode-interpreter.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "mode-interpreter.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.sbin"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Reading source file "mode-rfi-interface.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "mode-rfi-interface.sbin"
;;; done compiling system RELFUN-MODE-INTERPRETER
;;; Compiling system RELFUN-EMULATOR
;;; Reading source file "gaux.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "gaux.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.sbin"
;;; Reading source file "gcla.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "gcla.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.sbin"
;;; Reading source file "gmem.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "gmem.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.sbin"
;;; Reading source file "gmht.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling GMHT.DELETE
;;; Warning: Variable HT is bound but not referenced
;;; Warning: Variable POS is bound but not referenced
;;; Writing binary file "gmht.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.sbin"
;;; Reading source file "gasm.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling GASM.ST-ASM-LIST-BEGIN
;;; Warning: Variable PASS is bound but not referenced
;;; While compiling GASM.MODULE1
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.MODULE23
;;; Warning: Variable INSTR is bound but not referenced
;;; Warning: Variable DUMMY is bound but not referenced
;;; While compiling GASM.IMPORT-FROM
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.IMPORT-MODULE
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.DYNAMIC
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.STATIC
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.GLOBAL1
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.GLOBAL2
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.GLOBAL3
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.LOCAL2
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.PROC2
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.PROC3
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.END3
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.DEND3
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.STD-INSTR2
;;; Warning: Variable INSTR is bound but not referenced
;;; While compiling GASM.CT-NAT
;;; Warning: Variable STATE is bound but not referenced
;;; While compiling GASM.CT-CONST
;;; Warning: Variable STATE is bound but not referenced
;;; While compiling GASM.CT-FUNCTOR
;;; Warning: Variable STATE is bound but not referenced
;;; While compiling GASM.CT-X
;;; Warning: Variable STATE is bound but not referenced
;;; While compiling GASM.CT-FUNCTION
;;; Warning: Variable STATE is bound but not referenced
;;; Writing binary file "gasm.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.sbin"
;;; Reading source file "ginit.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "ginit.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.sbin"
;;; GC: 728470 words [2913880 bytes] of dynamic storage in use.
;;; 582248 words [2328992 bytes] of free storage available before a GC.
;;; 1892966 words [7571864 bytes] of free storage available if GC is disabled.
;;; Reading source file "gwam.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling GWAM.SWITCH_ON_CONSTANT
;;; Warning: Variable LEN is bound but not referenced
;;; While compiling GWAM.SWITCH_ON_STRUCTURE
;;; Warning: Variable LEN is bound but not referenced
;;; While compiling GWAM.COMMIT_TEMP
;;; Warning: Variable I is bound but not referenced
;;; While compiling GWAM.COMMIT-PERM
;;; Warning: Variable I is bound but not referenced
;;; While compiling SHOW-TERM
;;; Warning: Variable FLAG is bound but not referenced
;;; Writing binary file "gwam.sbin"
;;; done compiling system RELFUN-EMULATOR
;;; Compiling system RELFUN-CLASSIFIER
;;; Reading source file "absyn-macro.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "absyn-macro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.sbin"
;;; Reading source file "absyn1.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "absyn1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.sbin"
;;; Reading source file "absyn2.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "absyn2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.sbin"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.lisp"
;;; Reading source file "simplify.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "simplify.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.sbin"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Reading source file "clasPas1.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "clasPas1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.sbin"
;;; Reading source file "clasPas2.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "clasPas2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.sbin"
;;; Reading source file "classify.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "classify.sbin"
;;; done compiling system RELFUN-CLASSIFIER
;;; Compiling system RELFUN-INDEX
;;; Reading source file "idx.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "idx.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.sbin"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Reading source file "icl.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling MK-INDEX-STRUCT
;;; Warning: Variable PROCEDURE-NAME is bound but not referenced
;;; While compiling ICL.IT-P
;;; Warning: Variable IT is bound but not referenced
;;; While compiling ICL.MIN-BLOCK-PORTION
;;; Warning: Variable NO-OF-CLAUSES is bound but not referenced
;;; Writing binary file "icl.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.sbin"
;;; Reading source file "icg.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling ICG.MK-S.O.T.-F-INDEXTREE
;;; Warning: Variable X1579 is bound but not referenced
;;; Writing binary file "icg.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.sbin"
;;; Reading source file "iif.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "iif.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.sbin"
;;; Reading source file "linear.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling IIF.MK-LABEL-F-IDXTREE
;;; Warning: Variable CLAUSES is bound but not referenced
;;; Writing binary file "linear.sbin"
;;; done compiling system RELFUN-INDEX
;;; Warning: The following functions are not known to be defined:
;;;          FC-INIT was referenced by RFI-COMMAND
;;;          G-PUT-UNSAFE-VALUE was referenced by CODE-GEN-IS
;;;          PERMANENT-VARIABLE was referenced by GWAM.COMMIT-PERM
;;;          CONS-CAR was referenced by CONSTRUCT-LIST
;;;          CONS-CDR was referenced by CONSTRUCT-LIST
;;;          LISPCALL was referenced by CL1-LISPCALL
;;; Compiling system TAXON-FRONT-END
;;; Reading source file "geto.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/geto.sbin"
;;; Loading binary file "ibin/geto.sbin"
;;; Reading source file "tx-signatur.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/tx-signatur.sbin"
;;; Loading binary file "ibin/tx-signatur.sbin"
;;; Reading source file "graph.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling ASSERTIONS
;;; Warning: Variable L-OF-A is bound but not referenced
;;; While compiling PRINT-NODE
;;; Warning: Variable K is bound but not referenced
;;; While compiling PRINT-GRAPH
;;; Warning: Variable K is bound but not referenced
;;; While compiling NAIVE-NODE-ABOVE
;;; Warning: Free variable *STEPS-I assumed to be special
;;; Warning: Variable DEPTH is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/graph.sbin"
;;; Loading binary file "ibin/graph.sbin"
;;; Reading source file "classify.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling COMPUTE-FRONTIER
;;; Warning: Variable I is bound but not referenced
;;; Warning: Variable PS is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/classify.sbin"
;;; Loading binary file "ibin/classify.sbin"
;;; Reading source file "psgraph.lisp"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/psgraph.sbin"
;;; Loading binary file "ibin/psgraph.sbin"
;;; Reading source file "draw-hierarchy.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/draw-hierarchy.sbin"
;;; Loading binary file "ibin/draw-hierarchy.sbin"
;;; Reading source file "draw-on-boards.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/draw-on-boards.sbin"
;;; Loading binary file "ibin/draw-on-boards.sbin"
;;; Reading source file "draw-objects-on-boards.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/draw-objects-on-boards.sbin"
;;; Loading binary file "ibin/draw-objects-on-boards.sbin"
;;; Reading source file "abox-manager.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-ABOX-ENTRY
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; While compiling ABOX-LISTING
;;; Warning: Calling PRINT-ABOX-ENTRY with the wrong number of arguments
;;; While compiling GET-ABOX-ENTRY
;;; Warning: Variable ITEM is bound but not referenced
;;; While compiling ABOX-MEMBER?
;;; Warning: Variable IDENTIFIER is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/abox-manager.sbin"
;;; Loading binary file "ibin/abox-manager.sbin"
;;; Reading source file "tbox-manager.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-TBOX-ENTRY
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; While compiling LISTING
;;; Warning: Variable X is bound but not referenced
;;; While compiling CLEAR-TBOX
;;; Warning: Free variable DEFLIST assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/tbox-manager.sbin"
;;; Loading binary file "ibin/tbox-manager.sbin"
;;; Reading source file "absynt.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/absynt.sbin"
;;; Loading binary file "ibin/absynt.sbin"
;;; Reading source file "define.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling EDOM-INSTAL
;;; Warning: Variable DUMMY is bound but not referenced
;;; While compiling DOMA
;;; Warning: Variable DUMMY is bound but not referenced
;;; While compiling INSERT-PRIMITIVE
;;; Warning: Variable G is bound but not referenced
;;; Warning: Variable N is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/define.sbin"
;;; Loading binary file "ibin/define.sbin"
;;; Reading source file "sprims.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling FOFAM
;;; Warning: Free variable DEFLIST assumed to be special
;;; While compiling FCFAM
;;; Warning: Free variable DEFLIST assumed to be special
;;; While compiling FSFAM
;;; Warning: Free variable DEFLIST assumed to be special
;;; Warning: Variable FAM-ENTRY is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/sprims.sbin"
;;; Loading binary file "ibin/sprims.sbin"
;;; Reading source file "push-not.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/push-not.sbin"
;;; Loading binary file "ibin/push-not.sbin"
;;; Reading source file "assertion.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-MODEL
;;; Warning: Variable KEY is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/assertion.sbin"
;;; Loading binary file "ibin/assertion.sbin"
;;; Reading source file "ro-predicates.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/ro-predicates.sbin"
;;; Loading binary file "ibin/ro-predicates.sbin"
;;; Reading source file "predicates.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling MAKE-INTERNAL-REP-OF-PREDICATE
;;; Warning: Variable DOMAIN is bound but not referenced
;;; While compiling MAKE-INTERNAL-REP-OF-NEG-PREDICATE
;;; Warning: Variable DOMAIN is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/predicates.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Reading source file "exp-asse.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/exp-asse.sbin"
;;; Loading binary file "ibin/exp-asse.sbin"
;;; Reading source file "subsumption.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/subsumption.sbin"
;;; Loading binary file "ibin/subsumption.sbin"
;;; Reading source file "filter-graph.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/filter-graph.sbin"
;;; Loading binary file "ibin/filter-graph.sbin"
;;; Reading source file "a-reasoning.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/a-reasoning.sbin"
;;; Loading binary file "ibin/a-reasoning.sbin"
;;; Reading source file "cmds.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling FSATI-CO?
;;; Warning: Variable NC is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/cmds.sbin"
;;; Loading binary file "ibin/cmds.sbin"
;;; Reading source file "listing.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/listing.sbin"
;;; Loading binary file "ibin/listing.sbin"
;;; Reading source file "ind-reasoning.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling LA
;;; Warning: Calling PRINT-ABOX-ENTRY with the wrong number of arguments
;;; While compiling REALIZE-INDIVIDUAL-INCOMPLETE
;;; Warning: Variable CONCEPT is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/ind-reasoning.sbin"
;;; Loading binary file "ibin/ind-reasoning.sbin"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "trace.lisp"
;;; Warning: Redefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "trace.lisp"
;;; Reading source file "exp-pred.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/exp-pred.sbin"
;;; Loading binary file "ibin/exp-pred.sbin"
;;; Reading source file "colab-access.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling top level forms
;;; Warning: Free variable *TAXON-ITEMS* assumed to be special
;;; While compiling ADD-TAXON
;;; Warning: Free variable *TAXON-ITEMS* assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/colab-access.sbin"
;;; Loading binary file "ibin/colab-access.sbin"
;;; Reading source file "retrieval.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling GET-CONCEPT-NAMES
;;; Warning: Variable K is bound but not referenced
;;; While compiling MAKE-ASSE
;;; Warning: Variable A is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/retrieval.sbin"
;;; Loading binary file "ibin/retrieval.sbin"
;;; Reading source file "trace.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/trace.sbin"
;;; Loading binary file "ibin/trace.sbin"
;;; Warning: Redefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "ind-reasoning.lisp"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "ind-reasoning.lisp"
;;; Reading source file "switch.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling SWITCH-SHOW-OPTIONS
;;; Warning: Variable DUMMY is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/switch.sbin"
;;; Loading binary file "ibin/switch.sbin"
;;; Reading source file "tx.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling top level forms
;;; Warning: Free variable *TX-OPCODE-TABLE* assumed to be special
;;; While compiling TX
;;; Warning: Free variable *TX-OPCODE-TABLE* assumed to be special
;;; While compiling COLAB-LIST-TAXON
;;; Warning: Variable ELEM is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/tx.sbin"
;;; Loading binary file "ibin/tx.sbin"
;;; Reading source file "help-fu.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling H-CHECK
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-CLASSIFY-ALL
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-CLEAR-ABOX
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-_GET-CONCEPTS
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-IM-LOWERS-AND-EC
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-IM-UPPERS-AND-EC
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-IHW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-SHW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-DHW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-CHW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-IAW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-SAW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-DAW
;;; Warning: Variable L is bound but not referenced
;;; While compiling H-CAW
;;; Warning: Variable L is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/help-fu.sbin"
;;; Loading binary file "ibin/help-fu.sbin"
;;; Reading source file "save-load-graph.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling SAVE-SUBSUMPTION
;;; Warning: Free variable DEFLIST assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/front-end/ibin/save-load-graph.sbin"
;;; done compiling system TAXON-FRONT-END
;;; Compiling system TAXON-PRINT-FCTS
;;; Reading source file "print-fcts.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling DPF
;;; Warning: Free variable *PRINT-CNF assumed to be special
;;; Warning: Free variable *PRINT-ABSTRACT assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/print-fcts/ibin/print-fcts.sbin"
;;; done compiling system TAXON-PRINT-FCTS
;;; Compiling system TAXON-REPRESENTATION
;;; Reading source file "cnf-subsumption.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-SUBS-HELP
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/cnf-subsumption.sbin"
;;; Loading binary file "ibin/cnf-subsumption.sbin"
;;; Reading source file "cnf-representation.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/cnf-representation.sbin"
;;; Loading binary file "ibin/cnf-representation.sbin"
;;; Reading source file "generate-cn.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/generate-cn.sbin"
;;; Loading binary file "ibin/generate-cn.sbin"
;;; Reading source file "print-cnf.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-CNF
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; While compiling GET-ACTUAL-CNF-PRINT-FUNCTION
;;; Warning: Free variable *PRINT-CNF assumed to be special
;;; While compiling SET-PRINT-NAME-OF-CNF
;;; Warning: Free variable *PRINT-CNF assumed to be special
;;; While compiling SET-PRINT-SLOT-OF-CNF
;;; Warning: Free variable *PRINT-CNF assumed to be special
;;; While compiling SET-PRETTY-PRINT-OF-CNF
;;; Warning: Free variable *PRINT-CNF assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/print-cnf.sbin"
;;; Loading binary file "ibin/print-cnf.sbin"
;;; Reading source file "tr2knf.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/tr2knf.sbin"
;;; Loading binary file "ibin/tr2knf.sbin"
;;; Reading source file "constructors2fkts.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/constructors2fkts.sbin"
;;; Loading binary file "ibin/constructors2fkts.sbin"
;;; Reading source file "get-function.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/get-function.sbin"
;;; Loading binary file "ibin/get-function.sbin"
;;; Reading source file "object.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/object.sbin"
;;; Loading binary file "ibin/object.sbin"
;;; Reading source file "abstract.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/abstract.sbin"
;;; Loading binary file "ibin/abstract.sbin"
;;; Reading source file "print-abstracts.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-ABSTRACT
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; While compiling PRINT-COND-FCT-OF-F_P
;;; Warning: Variable PRED is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/print-abstracts.sbin"
;;; Loading binary file "ibin/print-abstracts.sbin"
;;; Reading source file "concrete.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-CONCRETE
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/concrete.sbin"
;;; Loading binary file "ibin/concrete.sbin"
;;; Reading source file "unknown.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-UNKNOWN
;;; Warning: Variable S is bound but not referenced
;;; Warning: Variable K is bound but not referenced
;;; While compiling PRINT-FCT-OF-N_PR
;;; Warning: Variable PRED is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/unknown.sbin"
;;; Loading binary file "ibin/unknown.sbin"
;;; Reading source file "deref.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/representation/ibin/deref.sbin"
;;; done compiling system TAXON-REPRESENTATION
;;; Compiling system TAXON-SUBSUMPTION
;;; Reading source file "make-subs-rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling MAKE-TOP-SR
;;; Warning: Variable CNF is bound but not referenced
;;; While compiling MAKE-BOTTOM-SR
;;; Warning: Variable CNF is bound but not referenced
;;; While compiling MAKE-OR-SR
;;; Warning: Variable CNF2 is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/subsumption/ibin/make-subs-rules.sbin"
;;; Loading binary file "ibin/make-subs-rules.sbin"
;;; Reading source file "subsumes-weakly.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling SUBSUMES-WEAKLY?
;;; Warning: Free variable RES assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/subsumption/ibin/subsumes-weakly.sbin"
;;; Loading binary file "ibin/subsumes-weakly.sbin"
;;; Reading source file "subs-rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling NEG-SFAMILY-SR
;;; Warning: Variable SFAM is bound but not referenced
;;; Warning: Variable CNF is bound but not referenced
;;; While compiling NEG-CONCEPT-SR
;;; Warning: Variable CNF1 is bound but not referenced
;;; Warning: Variable CNF2 is bound but not referenced
;;; While compiling OR-SR
;;; Warning: Variable CNF1 is bound but not referenced
;;; Warning: Variable CNF2 is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/subsumption/ibin/subs-rules.sbin"
;;; done compiling system TAXON-SUBSUMPTION
;;; Compiling system TAXON-CONSISTENCY
;;; Reading source file "print-rule.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/print-rule.sbin"
;;; Loading binary file "ibin/print-rule.sbin"
;;; Reading source file "stacks.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/stacks.sbin"
;;; Loading binary file "ibin/stacks.sbin"
;;; Reading source file "predicates.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/predicates.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Reading source file "choice-points.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/choice-points.sbin"
;;; Loading binary file "ibin/choice-points.sbin"
;;; Reading source file "clash.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/clash.sbin"
;;; Loading binary file "ibin/clash.sbin"
;;; Reading source file "abstract-predicates.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/abstract-predicates.sbin"
;;; Loading binary file "ibin/abstract-predicates.sbin"
;;; Reading source file "agreements.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/agreements.sbin"
;;; Loading binary file "ibin/agreements.sbin"
;;; Reading source file "backtracking.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/backtracking.sbin"
;;; Loading binary file "ibin/backtracking.sbin"
;;; Reading source file "concrete-predicates.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling GET-ACCESS-FUNCTION
;;; Warning: Variable DUMMY is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/concrete-predicates.sbin"
;;; Loading binary file "ibin/concrete-predicates.sbin"
;;; Reading source file "cond-fcts.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling MAKE-ATTR-CF-C
;;; Warning: Variable ROLE-FILLERS is bound but not referenced
;;; While compiling MAKE-ROLE-CF-C
;;; Warning: Variable ATTR-FILLERS is bound but not referenced
;;; While compiling MAKE-ATTR-COND-FUNCTION
;;; Warning: Variable ROLE-FILLERS is bound but not referenced
;;; While compiling MAKE-ROLE-COND-FUNCTION
;;; Warning: Variable ATTR-FILLERS is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/cond-fcts.sbin"
;;; Loading binary file "ibin/cond-fcts.sbin"
;;; Reading source file "control.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/control.sbin"
;;; Loading binary file "ibin/control.sbin"
;;; Reading source file "init.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/init.sbin"
;;; Loading binary file "ibin/init.sbin"
;;; Reading source file "make-assertions.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/make-assertions.sbin"
;;; Loading binary file "ibin/make-assertions.sbin"
;;; Reading source file "make-rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling GET-RESTRICTOR-RULE
;;; Warning: Calling MAKE-NEG-SUBFAMILY-RULE with the wrong number of arguments
;;; Warning: Calling MAKE-SUBFAMILY-RULE with the wrong number of arguments
;;; While compiling MAKE-DO-NOTHING-FUNCTION
;;; Warning: Variable X is bound but not referenced
;;; Warning: Variable Y is bound but not referenced
;;; Warning: Variable Z is bound but not referenced
;;; While compiling MAKE-PROPAGATE-PREDICATE-FUNCTION
;;; Warning: Variable DUMMY1 is bound but not referenced
;;; Warning: Variable DUMMY2 is bound but not referenced
;;; While compiling MAKE-COND-PROPAGATE-PREDICATE-FUNCTION
;;; Warning: Variable DUMMY1 is bound but not referenced
;;; Warning: Variable DUMMY2 is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/make-rules.sbin"
;;; Loading binary file "ibin/make-rules.sbin"
;;; Reading source file "pathrules-for-concs.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/pathrules-for-concs.sbin"
;;; Loading binary file "ibin/pathrules-for-concs.sbin"
;;; Reading source file "pathrules-for-preds.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/pathrules-for-preds.sbin"
;;; Loading binary file "ibin/pathrules-for-preds.sbin"
;;; Reading source file "process-stacks.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/process-stacks.sbin"
;;; Loading binary file "ibin/process-stacks.sbin"
;;; Reading source file "restrictor-rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/restrictor-rules.sbin"
;;; Loading binary file "ibin/restrictor-rules.sbin"
;;; Reading source file "rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/rules.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; Reading source file "types.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PROPAGATE-CONCRETE!
;;; Warning: Free variable CLASH assumed to be special
;;; Writing binary file "/home/ctec/colab1/taxon/consistency/ibin/types.sbin"
;;; done compiling system TAXON-CONSISTENCY
;;; Compiling system TAXON-INCR-REAL-ORD
;;; Reading source file "make-predicates.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/make-predicates.sbin"
;;; Loading binary file "ibin/make-predicates.sbin"
;;; Reading source file "print-RO.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; While compiling PRINT-RO
;;; Warning: Variable K is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/print-RO.sbin"
;;; Loading binary file "ibin/print-RO.sbin"
;;; Reading source file "propagate-number-rest.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/propagate-number-rest.sbin"
;;; Loading binary file "ibin/propagate-number-rest.sbin"
;;; Reading source file "propagate-number.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/propagate-number.sbin"
;;; Loading binary file "ibin/propagate-number.sbin"
;;; Reading source file "propagate-real.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/propagate-real.sbin"
;;; Loading binary file "ibin/propagate-real.sbin"
;;; Reading source file "propagate-symbolic.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/propagate-symbolic.sbin"
;;; Loading binary file "ibin/propagate-symbolic.sbin"
;;; Reading source file "representation.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/representation.sbin"
;;; Loading binary file "ibin/representation.sbin"
;;; Reading source file "symbolic-clash.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/symbolic-clash.sbin"
;;; Loading binary file "ibin/symbolic-clash.sbin"
;;; Reading source file "propagate-new.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/propagate-new.sbin"
;;; Loading binary file "ibin/propagate-new.sbin"
;;; Reading source file "rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/incr-real-ord/ibin/rules.sbin"
;;; done compiling system TAXON-INCR-REAL-ORD
;;; Compiling system TAXON-CONCRETE
;;; Reading source file "get-rules.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "TAXON"
;;; Writing binary file "/home/ctec/colab1/taxon/concrete/ibin/get-rules.sbin"
;;; done compiling system TAXON-CONCRETE
;;; Warning: The following functions are not known to be defined:
;;;          TAXON::MAP-TO-NEW-OBJ was referenced by
;;;             TAXON::ADD-UNEQUAL-ERASABLE!,
;;;             TAXON::ADD-ABSTRACT-FUNCTION!,
;;;             TAXON::ADD-CONCRETE-FUNCTION!,
;;;             TAXON::ADD-PRINTABLE-FUNCTION!, TAXON::BIND!,
;;;             TAXON::BIND-ABSTRACT!, TAXON::BIND-CONCRETE!
;;;          TAXON::CONTAX-PREDICATE? was referenced by
;;;             TAXON::BODY->TX-BODY, TAXON::NEGATED-BODY->TX-BODY
;;;          TAXON::CONTAX-PREDICATE->INT-CONTAX-PRED was referenced by
;;;             TAXON::BODY->TX-BODY
;;;          TAXON::NEGATED-CONTAX-PREDICATE->INT-CONTAX-PRED was referenced by
;;;             TAXON::NEGATED-BODY->TX-BODY
;;; Compiling system CONTAX
;;; Reading source file "assistant-macros.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/assistant-macros.sbin"
;;; Loading binary file "contax-sbin/assistant-macros.sbin"
;;; Reading source file "assistant-functions.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/assistant-functions.sbin"
;;; Loading binary file "contax-sbin/assistant-functions.sbin"
;;; Reading source file "constraint-queues.lisp"
;;; While compiling top level forms
;;; Warning: Variable X is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/constraint-queues.sbin"
;;; Loading binary file "contax-sbin/constraint-queues.sbin"
;;; Reading source file "hierarchies.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/hierarchies.sbin"
;;; Loading binary file "contax-sbin/hierarchies.sbin"
;;; Reading source file "variables.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/variables.sbin"
;;; Loading binary file "contax-sbin/variables.sbin"
;;; Reading source file "constraints.lisp"
;;; While compiling MAKE-CONSTRAINT-FN
;;; Warning: Variable PRIORITY is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/constraints.sbin"
;;; Loading binary file "contax-sbin/constraints.sbin"
;;; Reading source file "predicates.lisp"
;;; While compiling INIT-LOOK-UP
;;; Warning: Variable R is bound but not referenced
;;; While compiling STORE
;;; Warning: Variable R is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/predicates.sbin"
;;; Loading binary file "contax-sbin/predicates.sbin"
;;; Reading source file "revise.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/revise.sbin"
;;; Loading binary file "contax-sbin/revise.sbin"
;;; Reading source file "control.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/control.sbin"
;;; Loading binary file "contax-sbin/control.sbin"
;;; Reading source file "programmer-interface.lisp"
;;; While compiling RESET-FN
;;; Warning: Variable ARGS is bound but not referenced
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/programmer-interface.sbin"
;;; Loading binary file "contax-sbin/programmer-interface.sbin"
;;; Reading source file "negation.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "CONTAX"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/negation.sbin"
;;; Loading binary file "contax-sbin/negation.sbin"
;;; Reading source file "colab-interface.lisp"
;;; While compiling LOAD-COLAB-FILE
;;; Warning: *COLAB-INPUT* is bound locally, and is not special
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/colab-interface.sbin"
;;; Loading binary file "contax-sbin/colab-interface.sbin"
;;; Reading source file "user-interface.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/user-interface.sbin"
;;; Loading binary file "contax-sbin/user-interface.sbin"
;;; Reading source file "debugger.lisp"
;;; Writing binary file "/home/ctec/colab1/contax/contax-sbin/debugger.sbin"
;;; done compiling system CONTAX
;;; Warning: The following function is not known to be defined:
;;;          CONTAX::COLAB-CONVERT-SUBHIERARCHY was referenced by
;;;             CONTAX::IMPORT-TAXON-TERMINOLOGY
;;; Compiling system FW-BASIC
;;; Reading source file "fw-colab-top.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling COLAB-FW-FAM-FORWARD
;;; Warning: Variable USERLINE is bound but not referenced
;;; Writing binary file "fw-colab-top.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.sbin"
;;; Reading source file "fw-access.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "fw-access.sbin"
;;; done compiling system FW-BASIC
;;; Loading system FW-BASIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-access.sbin"
;;; done loading system FW-BASIC
;;; Compiling system FW-SEMI
;;; Reading source file "semi-naive.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "semi-naive.sbin"
;;; done compiling system FW-SEMI
;;; Compiling system FW-META
;;; Reading source file "part-eval.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "part-eval.sbin"
;;; done compiling system FW-META
;;; Compiling system FW-MAGIC
;;; Reading source file "magic-sets.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling GEN-AD
;;; Warning: Variable X is bound but not referenced
;;; Writing binary file "magic-sets.sbin"
;;; done compiling system FW-MAGIC
;;; Compiling system FW-INTER
;;; Reading source file "fw-retain-admin.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "fw-retain-admin.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.sbin"
;;; Reading source file "fw-horizon-comp.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "fw-horizon-comp.sbin"
;;; done compiling system FW-INTER
;;; Compiling system FW-GASM
;;; Reading source file "changes.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "changes.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.sbin"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Reading source file "tools.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "tools.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.sbin"
;;; Reading source file "retain.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling GWAM.PUSH-FACT-RETAIN
;;; Warning: Variable DUMMY-REG is bound but not referenced
;;; Writing binary file "retain.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.sbin"
;;; Reading source file "absyn2.patch.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "absyn2.patch.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.sbin"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Reading source file "procedures.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "procedures.sbin"
;;; done compiling system FW-GASM
;;; Compiling system FW-EMUL
;;; Reading source file "fw-gassem-startup.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "fw-gassem-startup.sbin"
;;; done compiling system FW-EMUL
;;; Compiling system FW-FAM
;;; Reading source file "compiler.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling COMPILE-RULE
;;; Warning: Variable BACK-STORE is bound but not referenced
;;; While compiling PASS-4
;;; Warning: Variable BACK-RULE is bound but not referenced
;;; Writing binary file "compiler.sbin"
;;; GC: 629664 words [2518656 bytes] of dynamic storage in use.
;;; 681054 words [2724216 bytes] of free storage available before a GC.
;;; 1991772 words [7967088 bytes] of free storage available if GC is disabled.
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.sbin"
;;; Reading source file "emu.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE CON) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE FUN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE H) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE R) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE X) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE M) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE ST) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE F) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE S) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE D) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE STOP) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE CN) in CASE. Behavior could be unpredictable
;;; Warning: Found a duplicate key in (QUOTE C) in CASE. Behavior could be unpredictable
;;; Writing binary file "emu.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.sbin"

FAM  Ver 1.1 , 12. Juni 92
;;; Reading source file "interface.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling GFAM.HAS-SUCCEEDED
;;; Warning: Free variable *FAM-WAM-BINDINGS* assumed to be special
;;; While compiling top level forms
;;; Warning: Free variable *FAM-WAM-BINDINGS* assumed to be special
;;; While compiling FAM-EMU-LISP-WANDEL-EXTRA
;;; Warning: Variable DX is bound but not referenced
;;; While compiling FAM-EMU-LISP-WANDEL-EXTRA2
;;; Warning: Variable DX is bound but not referenced
;;; Writing binary file "interface.sbin"
;;; done compiling system FW-FAM
;;; Compiling system FW-TX
;;; Reading source file "get-wp.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "get-wp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.sbin"
;;; Reading source file "instance-name.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; Writing binary file "instance-name.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.sbin"

;;; Reading source file "tx-transformer.lisp"
;;; Warning: File does not begin with IN-PACKAGE.  Compiling in package "USER"
;;; While compiling COMPLEX_PREM_P
;;; Warning: Variable LIST_OF_CONCEPTS is bound but not referenced
;;; Writing binary file "tx-transformer.sbin"
;;; done compiling system FW-TX
FORWARD
> (quit)
ctec@arctecserv-2: lucid

/usr/local/lucid: Permission denied.
ctec@arctecserv-2: lucid/usr/local/lucid/lisp-4-1-clos

;;; Warning: ADDRESS-UNITS-PER-WORD is not a multiple of the system page siz: 8192 bytes
;;; Lucid Common Lisp/SPARC
;;; Development Environment Version 4.1 Beta DBCS, 9 June 1992
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid and Lucid Common Lisp are trademarks of Lucid, Inc.  Other brand
;;; or product names are trademarks or registered trademarks of their
;;; respective holders.
;;;
;;; This is a preliminary version to be used for testing purposes only.

> (load "my-colab-init")
;;; Loading source file "my-colab-init.lisp"
;;; Warning: File "my-colab-init.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: File "/home/ctec/colab1/top/start-colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
loading start-colab
;;; Loading source file "/home/ctec/colab1/top/our-fs.lisp"
;;; Warning: File "/home/ctec/colab1/top/our-fs.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

"loading pathname abstraction our-fs" 
;;; Loading source file "top/col-keys.lisp"
;;; Warning: File "top/col-keys.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "taxon/col-init-tx.lisp"
;;; Warning: File "taxon/col-init-tx.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "top/defsystem.lisp"
;;; Loading source file "taxon/front-end/tx-signatur.lisp"
;;; Warning: File "taxon/front-end/tx-signatur.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "taxon/front-end/tax-specific.lisp"
;;; Loading source file "top/colab.lisp"
;;; Warning: File "top/colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "top/defsystem.lisp"
;;; Loading source file "RFM/RFM-system.lisp"
;;; Warning: File "RFM/RFM-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "taxon/taxon-system.lisp"
;;; Warning: File "taxon/taxon-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "forward/forward-system.lisp"
;;; Warning: File "forward/forward-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "contax/contax-system.lisp"
;;; Warning: File "contax/contax-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading system RELFUN-AUX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/aux/aux.sbin"
;;; done loading system RELFUN-AUX
;;; Loading system RELFUN-RFI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.sbin"
;;; Warning: Redefining Function MORE-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "prelude.rf" ..
RFI - 4 December 1992
   - functions improved:
      - readl
      - consult/replace
      - lconsult/lreplace
      - batch-command
      - script-command
      - listclass
      - transform-query-for-emulator
      - footen-command
   - new functions:
      - footer
      - showdepth-command
   - pretty-print-functions moved to *lisp-extras*
   - *rfi-readtable* is modified instead of lisp *readtable*
   - spy/nospy also affects compiler/emulator
   - consult/replace works for files with multiple setq or with untagged clauses
   - lconsult/lreplace works also with untagged clauses or expanded macros
   - bar is legalized
   - query for emulator is transformed to special footed-procedure 'main'
   - footer: change radically hn- to ft-clauses
   - showdepth: length spy-trace is displayed with stars
   - PLEASE NOTE: It's enough to say compile (does horizon & verti)
   - call for meta-calls is generalized and renamed to ecal (eval+call)
   - spy shows backquotes of structures bound to variables etc.
   - horizon/compile: flatter, normalize, footen; mode-interpreter interface
   - once, naf, toplevel renamed to relfun, interface function rf
   - initial cut generalized to single cut: (hn (foo _x) ... ! ...)
   - bagof-like tupof: (tupof (likes john _x) `(ok _x)) RETURNS tup of (ok _x)
   - access function rf complies to COLAB specification
   - command deanon for databases and automatic deanonymization of requests
   - COLAB partners fw, cn, tx are NOW ACCESSIBLE AS LISP ***FUNCTIONS***
   - error handling improved and rf-pprint also returns its arg
   - command relationalize (flatten + extrarg) puts return into FIRST arg
   - command singlify transforms multi-footed clauses to single-footed ones
   - commands builtins changed, version introduced
   - flatter now treats complex is lhs
   - database is LIST of lists, or-process has db-left/db-right args, prelude
   - cns is interpreted as LISP cons, normalize command, rf-terpri returns t
   - (foot-)sole cut returns proper value: (ft (foo _x) ... v !) => v'
   - PROLOG-style syntax can be loaded; static-flattener uses mk-inst
   - relfun made recursive for interaction breaks in batch; lisp renamed bye
   - exec made recursive for recursive batch files (cf. recursive includes)
   - value-returning clause primitive (clause `(tag head | body))
   - integrated: PROLOG-style syntax and new horizontals (uncomma ...)
   - date/time-returning date builtin (date); rfi-predicates -> operators
   - report errors to boley@informatik.uni-kl.de
   - start by typing (relfun)

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.sbin"
;;; Warning: Redefining Function PP-INIT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-EXPR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-FINISH which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HANDLE-RFI-CMD which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PRO-COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function READ-FROM-TERMINAL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function RFI-COMMAND which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system RELFUN-RFI
;;; Loading system RELFUN-CODEGENERATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.sbin"
Codegenerator 0.53, 19.Sep.90
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.sbin"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Variable *LISP-FUNCTIONS* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *NEXT-CHUNKREG* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; done loading system RELFUN-CODEGENERATOR
;;; Loading system RELFUN-NORMALIZER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.sbin"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/debug.sbin"
;;; done loading system RELFUN-NORMALIZER
;;; Loading system RELFUN-MODE-INTERPRETER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.sbin"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-rfi-interface.sbin"
;;; done loading system RELFUN-MODE-INTERPRETER
;;; Loading system RELFUN-EMULATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.sbin"
NyWam --- Version 0.23g --- 14 Feb 92
;;; Warning: Redefining Variable *EMU-DEBUG* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNTYPE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNMACRO which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNOR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNLAMBDA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HOTRANS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNCOMMA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"

;;; done loading system RELFUN-EMULATOR
;;; Loading system RELFUN-CLASSIFIER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.sbin"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.sbin"

Klassifizierer V 1.0 . Letzte Aenderung: 06. 10. 1990
;;; done loading system RELFUN-CLASSIFIER
;;; Loading system RELFUN-INDEX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.sbin"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/linear.sbin"
;;; done loading system RELFUN-INDEX
;;; Loading system RELFUN
;;; done loading system RELFUN
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "RFM/normalizer/normalizer.lisp"
;;; Loading source file "RFM/colab-interface.lisp"
;;; Warning: File "RFM/colab-interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLAB-RELFUN-HORIZON which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-VERTI which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-COMPILE which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-RFI-CMD-COMPILE which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF-1 which used to be defined in "top/colab.lisp"
;;; Warning: Redefining Function COL-PROMPT-PRINT which used to be defined in "top/colab.lisp"
;;; Loading source file "top/demo-break.lisp"
;;; Warning: File "top/demo-break.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
#P"/home.arctecserv-2a/ctec/colab1/my-colab-init.lisp"
> (colab)
colab> cd top/demo/decplan
Change directory
Current Pathname is #P"/home.arctecserv-2a/ctec/colab1/top/demo/decplan/"
colab> exec ext   decplan
Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
Try to load; please wait a moment.
;;; Loading system TAXON-FRONT-END
;;; Loading binary file "ibin/geto.sbin"
;;; Loading binary file "ibin/tx-signatur.sbin"
;;; Loading binary file "ibin/graph.sbin"
;;; Loading binary file "ibin/classify.sbin"
;;; Loading binary file "ibin/psgraph.sbin"
;;; Loading binary file "ibin/draw-hierarchy.sbin"
;;; Loading binary file "ibin/draw-on-boards.sbin"
;;; Loading binary file "ibin/draw-objects-on-boards.sbin"
;;; Loading binary file "ibin/abox-manager.sbin"
;;; Loading binary file "ibin/tbox-manager.sbin"
;;; Loading binary file "ibin/absynt.sbin"
;;; Loading binary file "ibin/define.sbin"
;;; Loading binary file "ibin/sprims.sbin"
;;; Loading binary file "ibin/push-not.sbin"
;;; Loading binary file "ibin/assertion.sbin"
;;; Loading binary file "ibin/ro-predicates.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/exp-asse.sbin"
;;; Loading binary file "ibin/subsumption.sbin"
;;; Loading binary file "ibin/filter-graph.sbin"
;;; Loading binary file "ibin/a-reasoning.sbin"
;;; Loading binary file "ibin/cmds.sbin"
;;; Loading binary file "ibin/listing.sbin"
;;; Loading binary file "ibin/ind-reasoning.sbin"
;;; Loading binary file "ibin/exp-pred.sbin"
;;; Loading binary file "ibin/colab-access.sbin"
;;; Loading binary file "ibin/retrieval.sbin"
;;; Loading binary file "ibin/trace.sbin"
;;; Warning: Redefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "ind-reasoning.lisp"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "ind-reasoning.lisp"
;;; Loading binary file "ibin/switch.sbin"
;;; Loading binary file "ibin/tx.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "ibin/help-fu.sbin"
;;; Loading binary file "ibin/save-load-graph.sbin"
;;; done loading system TAXON-FRONT-END
;;; Loading system TAXON-PRINT-FCTS
;;; Loading binary file "ibin/print-fcts.sbin"
;;; done loading system TAXON-PRINT-FCTS
;;; Loading system TAXON-REPRESENTATION
;;; Loading binary file "ibin/cnf-subsumption.sbin"
;;; Loading binary file "ibin/cnf-representation.sbin"
;;; Loading binary file "ibin/generate-cn.sbin"
;;; Loading binary file "ibin/print-cnf.sbin"
;;; Loading binary file "ibin/tr2knf.sbin"
;;; Loading binary file "ibin/constructors2fkts.sbin"
;;; Loading binary file "ibin/get-function.sbin"
;;; Loading binary file "ibin/object.sbin"
;;; Loading binary file "ibin/abstract.sbin"
;;; Loading binary file "ibin/print-abstracts.sbin"
;;; Loading binary file "ibin/concrete.sbin"
;;; Loading binary file "ibin/unknown.sbin"
;;; Loading binary file "ibin/deref.sbin"
;;; done loading system TAXON-REPRESENTATION
;;; Loading system TAXON-SUBSUMPTION
;;; Loading binary file "ibin/make-subs-rules.sbin"
;;; Loading binary file "ibin/subsumes-weakly.sbin"
;;; Loading binary file "ibin/subs-rules.sbin"
;;; done loading system TAXON-SUBSUMPTION
;;; Loading system TAXON-CONSISTENCY
;;; Loading binary file "ibin/print-rule.sbin"
;;; Loading binary file "ibin/stacks.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/choice-points.sbin"
;;; Loading binary file "ibin/clash.sbin"
;;; Loading binary file "ibin/abstract-predicates.sbin"
;;; Loading binary file "ibin/agreements.sbin"
;;; Loading binary file "ibin/backtracking.sbin"
;;; Loading binary file "ibin/concrete-predicates.sbin"
;;; Loading binary file "ibin/cond-fcts.sbin"
;;; Loading binary file "ibin/control.sbin"
;;; Loading binary file "ibin/init.sbin"
;;; Loading binary file "ibin/make-assertions.sbin"
;;; Loading binary file "ibin/make-rules.sbin"
;;; Loading binary file "ibin/pathrules-for-concs.sbin"
;;; Loading binary file "ibin/pathrules-for-preds.sbin"
;;; Loading binary file "ibin/process-stacks.sbin"
;;; Loading binary file "ibin/restrictor-rules.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; Loading binary file "ibin/types.sbin"
;;; done loading system TAXON-CONSISTENCY
;;; Loading system TAXON-INCR-REAL-ORD
;;; Loading binary file "ibin/make-predicates.sbin"
;;; Loading binary file "ibin/print-RO.sbin"
;;; Loading binary file "ibin/propagate-number-rest.sbin"
;;; Loading binary file "ibin/propagate-number.sbin"
;;; Loading binary file "ibin/propagate-real.sbin"
;;; Loading binary file "ibin/propagate-symbolic.sbin"
;;; Loading binary file "ibin/representation.sbin"
;;; Loading binary file "ibin/symbolic-clash.sbin"
;;; Loading binary file "ibin/propagate-new.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; done loading system TAXON-INCR-REAL-ORD
;;; Loading system TAXON-CONCRETE
;;; Loading binary file "ibin/get-rules.sbin"
;;; done loading system TAXON-CONCRETE
;;; Loading system TAXON
;;; done loading system TAXON
colab,tx> forward
Forward Subsystem Switch
Try to load; please wait a moment.
;;; Loading system FW-BASIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/fc-strategies.rf" ..; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/forward-prelude.rf" ..
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-access.sbin"
;;; done loading system FW-BASIC
;;; Loading system FW-SEMI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/semi-naive/semi-naive.sbin"
;;; done loading system FW-SEMI
;;; Loading system FW-META
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.sbin"
;;; Warning: Redefining Function OR-PROCESS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function CLAUSE-T which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function S-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function APPEND-GUARDS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system FW-META
;;; Loading system FW-MAGIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/magic/magic-sets.sbin"
;;; done loading system FW-MAGIC
;;; Loading system FW-INTER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-horizon-comp.sbin"
;;; done loading system FW-INTER
;;; Loading system FW-GASM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.sbin"
;;; Warning: Redefining Function CLASSIFY-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Warning: Redefining Function WANDEL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function READ-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function GWAM.HAS-FAILED which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function PRINTMSEG which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function SHOW-VALUE-OF-SOMETHING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function VALUE-HELP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.sbin"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/procedures.sbin"
;;; done loading system FW-GASM
;;; Loading system FW-EMUL
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/fw-gassem-startup.sbin"
;;; done loading system FW-EMUL
;;; Loading system FW-FAM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.sbin"

FAM  Ver 1.1 , 12. Juni 92
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/interface.sbin"
;;; done loading system FW-FAM
;;; Loading system FW-TX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.sbin"

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/tx-transformer.sbin"
;;; done loading system FW-TX
;;; Loading system FORWARD
;;; done loading system FORWARD
colab,tx,fwi> contax
Contax Subsystem Switch
Try to load; please wait a moment.
;;; Loading system CONTAX
;;; Loading binary file "contax-sbin/assistant-macros.sbin"
;;; Loading binary file "contax-sbin/assistant-functions.sbin"
;;; Loading binary file "contax-sbin/constraint-queues.sbin"
;;; Loading binary file "contax-sbin/hierarchies.sbin"
;;; Loading binary file "contax-sbin/variables.sbin"
;;; Loading binary file "contax-sbin/constraints.sbin"
;;; Loading binary file "contax-sbin/predicates.sbin"
;;; Loading binary file "contax-sbin/revise.sbin"
;;; Loading binary file "contax-sbin/control.sbin"
;;; Loading binary file "contax-sbin/programmer-interface.sbin"
;;; Loading binary file "contax-sbin/negation.sbin"
;;; Loading binary file "contax-sbin/colab-interface.sbin"
;;; Warning: Redefining Function COLAB-DESTROY-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-CONSULT-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "contax-sbin/user-interface.sbin"
;;; Loading binary file "contax-sbin/debugger.sbin"
;;; done loading system CONTAX
;;; Loading source file "contax/convert-hierarchy.lisp"
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
colab,tx,fwi,cn> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> spy classify
trace classify, assert-ind?, concept-closure
colab,tx> consult feature-concepts.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

 Classify Concept: TRUNCONE 

 Classify Concept: RING 

 Classify Concept: FILLED 

 Classify Concept: HOLLOW 

 Classify Concept: ASCENDING 

 Classify Concept: DESCENDING 

 Classify Concept: CYLINDER 

 Classify Concept: CIRCLE 

 Classify Concept: CONE 

 Classify Concept: ASC-TC 

 Classify Concept: DESC-TC 

 Classify Concept: ASC-RING 

 Classify Concept: DESC-RING 

 Classify Concept: ASC-CIRCLE 

 Classify Concept: DESC-CIRCLE 

 Classify Concept: ASC-CONE 

 Classify Concept: DESC-CONE 

 Classify Concept: FEATURE 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: LTS 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: TC+LTS 

 Classify Concept: LNOSE 

 Classify Concept: LSHOULDER 

 Classify Concept: LTS+TC 

 Classify Concept: RNOSE 

 Classify Concept: RSHOULDER 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: TC+LTS+TC 

 Classify Concept: UP-STEP 

 Classify Concept: DOWN-STEP 

 Classify Concept: TOWER 

 Classify Concept: GROOVE 

 Classify Concept: INSERTION 

 Classify Concept: SHOULDER 
;;; Expanding Dynamic Memory

 Classify Concept: LONGTURNINGSURFACE 

 LONGTURNINGSURFACE new member of equivalence class (LTS) 

 Classify Concept: WORKPIECE 
colab,tx> nospy classify
untrace classify, assert-ind?, concept-closure
colab,tx> pphi
print the computed subsumption hierarchy
               TOP <=== (LEVELS-OF-COMPOSITION) (FILLED) (HOLLOW) (ASCENDING) (DESCENDING) (FEATURE) (LIST)
LEVELS-OF-COMPOSITION <=== (ATOMIC) (BICONIC) (TRICONIC) (NCONIC) (H-LTS) (LTS+) (+LTS) (+LTS+) (SHOULDER)
            ATOMIC <=== (TRUNCONE)
          TRUNCONE <=== (RING) (CONE) (ASC-TC) (DESC-TC)
              RING <=== (CIRCLE) (ASC-RING) (DESC-RING)
            CIRCLE <=== (ASC-CIRCLE) (DESC-CIRCLE)
        ASC-CIRCLE <=== (BOTTOM)
       DESC-CIRCLE <=== (BOTTOM)
          ASC-RING <=== (ASC-CIRCLE)
         DESC-RING <=== (DESC-CIRCLE)
              CONE <=== (CIRCLE) (ASC-CONE) (DESC-CONE)
          ASC-CONE <=== (ASC-CIRCLE)
         DESC-CONE <=== (DESC-CIRCLE)
            ASC-TC <=== (CYLINDER) (ASC-RING) (ASC-CONE)
          CYLINDER <=== (BOTTOM)
           DESC-TC <=== (CYLINDER) (DESC-RING) (DESC-CONE)
           BICONIC <=== (BOTTOM)
          TRICONIC <=== (BOTTOM)
            NCONIC <=== (BOTTOM)
             H-LTS <=== (LONGTURNINGSURFACE LTS)
LONGTURNINGSURFACE LTS <=== (BOTTOM)
              LTS+ <=== (LTS+TC)
            LTS+TC <=== (RNOSE) (RSHOULDER)
             RNOSE <=== (BOTTOM)
         RSHOULDER <=== (BOTTOM)
              +LTS <=== (TC+LTS)
            TC+LTS <=== (LNOSE) (LSHOULDER)
             LNOSE <=== (BOTTOM)
         LSHOULDER <=== (BOTTOM)
             +LTS+ <=== (TC+LTS+TC)
         TC+LTS+TC <=== (UP-STEP) (DOWN-STEP) (TOWER) (GROOVE) (WORKPIECE)
           UP-STEP <=== (BOTTOM)
         DOWN-STEP <=== (BOTTOM)
             TOWER <=== (BOTTOM)
            GROOVE <=== (INSERTION)
         INSERTION <=== (BOTTOM)
         WORKPIECE <=== (BOTTOM)
          SHOULDER <=== (RSHOULDER) (LSHOULDER)
            FILLED <=== (BOTTOM)
            HOLLOW <=== (BOTTOM)
         ASCENDING <=== (ASC-TC)
        DESCENDING <=== (DESC-TC)
           FEATURE <=== (LONGTURNINGSURFACE LTS) (TC+LTS) (LTS+TC) (TC+LTS+TC) (SHOULDER)
              LIST <=== (BOTTOM)

colab,tx> filter 
filter subsumption graph
colab,tx> switch filtered-graph T
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> pphi
print the computed subsumption hierarchy
               TOP <=== (TC+LTS+TC) (LTS+TC) (TC+LTS) (LONGTURNINGSURFACE) (TRUNCONE)
         TC+LTS+TC <=== (WORKPIECE) (GROOVE)
         WORKPIECE <=== (BOTTOM)
            GROOVE <=== (BOTTOM)
            LTS+TC <=== (RSHOULDER) (RNOSE)
         RSHOULDER <=== (BOTTOM)
             RNOSE <=== (BOTTOM)
            TC+LTS <=== (LSHOULDER) (LNOSE)
         LSHOULDER <=== (BOTTOM)
             LNOSE <=== (BOTTOM)
LONGTURNINGSURFACE <=== (BOTTOM)
          TRUNCONE <=== (ASC-TC) (DESC-TC) (CIRCLE)
            ASC-TC <=== (CYLINDER)
          CYLINDER <=== (BOTTOM)
           DESC-TC <=== (CYLINDER)
            CIRCLE <=== (BOTTOM)

colab,tx> clear-abox
clear TAXON's ABox (delete individuals and assertions)

#<Hash-Table 120A0C6> 
colab,tx> contax
Contax Subsystem Switch
colab,tx,cn> consult decplan.col
Consults a database to all known subsystems
colab,tx,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,cn,rfe-l> destroy
destroy the relfun database
colab,tx,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,cn,rfe-l> compile
compile relfun database
;;; GC: 502072 words [2008288 bytes] of dynamic storage in use.
;;; 153286 words [613144 bytes] of free storage available before a GC.
;;; 808644 words [3234576 bytes] of free storage available if GC is disabled.
;;; GC: 502072 words [2008288 bytes] of dynamic storage in use.
;;; 153286 words [613144 bytes] of free storage available before a GC.
;;; 808644 words [3234576 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,cn,rfe-l> destroy
destroy the relfun database
colab,tx,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,cn,rfe-l,fwi> automatic
Activate automatic mode
colab,tx,cn,rfe-l,fwi> destroy-facts
Destroy the factbase
colab,tx,cn,rfe-l,fwi> destroy-rules
Destroy the rulebases
colab,tx,cn,rfe-l,fwi> destroy-magic
Destroy magic rules and seeds
colab,tx,cn,rfe-l,fwi> consult wp-facts.rf
Consults a database to all known subsystems

(ASC-TC CIRCLE) 
(CYLINDER) 
(DESC-TC) 
(CYLINDER) 
(ASC-TC) 
(CYLINDER) 
(ASC-TC) 
(CYLINDER) 
(DESC-TC) 
(CYLINDER) 
(ASC-TC) 
(CYLINDER) 
(DESC-TC) 
(CYLINDER) 
(DESC-TC CIRCLE) 
colab,tx,cn,rfe-l,fwi> consult feature-rules.rf
Consults a database to all known subsystems
colab,tx,cn,rfe-l,fwi> eval
Bottom-up-evaluation
;;; GC: 553284 words [2213136 bytes] of dynamic storage in use.
;;; 347834 words [1391336 bytes] of free storage available before a GC.
;;; 1248952 words [4995808 bytes] of free storage available if GC is disabled.
colab,tx,cn,rfe-l,fwi> taxon
Taxon Subsystem Switch
colab,tx> instances workpiece
compute a list of all instances of <concept term>

(TC+LTS+TC-CIRC1-LTS-CIRC1-CIRC15-CIRC15) 
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,rfe-l> (decplan)
-----------contax-call--------------
roughing contour high-alloy-steel right 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prr30))

-----------contax-call--------------
roughing contour high-alloy-steel left 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30))

`(tup
  skp
  (tup dir both)
  (tup kind contour)
  (tup
   s/d
   (tup
    actions
    (tup
     (tup tool rcmx tmaxp-prr30)
     (tup right contour (tup geo (tup p 40 0) (tup p 40 80) (tup p 60 80)))
     (tup right contour (tup geo (tup p 30 0) (tup p 30 60) (tup p 40 60)))
     (tup
      right
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup
      right
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) ) )
    (tup
     (tup tool rcmx tmaxp-prl40)
     (tup
      left
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) )
     (tup
      left
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup left contour (tup geo (tup p 60 160) (tup p 30 160) (tup p 30 200))) ) )
   (tup actions) ) )

More solutions?  (Y/N) y n

colab,tx,fwi,rfe-l> 
batchjob done...
colab,tx,fwi,rfe-l> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> pwd
Print the current directory
Current Pathname is #P"/home.arctecserv-2a/ctec/colab1/top/demo/decplan/"
colab> cd /home.arctecserv-2a/ctec/colab1/top/demo/
Change directory
Current Pathname is #P"/home.arctecserv-2a/ctec/colab1/top/demo/decplan/NIL"
colab> exec mcad    start
Executes a batch file
ERROR  (col-cmd-execute):  /home.arctecserv-2a/ctec/colab1/top/demo/decplan/start.bat  batchfile doesn't exist!
colab> cd /home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc
Change directory
Current Pathname is #P"/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/NIL"
colab> exec start
Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
colab,tx> contax
Contax Subsystem Switch
colab,tx,cn> forward
Forward Subsystem Switch
colab,tx,cn,fwi> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> consult micro2.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> filter
filter subsumption graph
colab,tx> switch filtered-graph t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> automatic
Activate automatic mode
colab,tx,fwi> consult wp-mcad2nc.rf
Consults a database to all known subsystems

(ASC-CIRCLE) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(ASC-TC) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(CYLINDER) 
(DESC-CIRCLE) 
colab,tx,fwi> consult tx-parts-emul.rf
Consults a database to all known subsystems
colab,tx,fwi> replace-strategies  tx-additions.rf
Replace the strategies
; Reading file "/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/tx-additions.rf" ..
colab,tx,fwi> compile-strategies
Compile the actual strategies
colab,tx,fwi> fw-compile
Compile all databases
;;; GC: 698052 words [2792208 bytes] of dynamic storage in use.
;;; 203066 words [812264 bytes] of free storage available before a GC.
;;; 1104184 words [4416736 bytes] of free storage available if GC is disabled.
colab,tx,fwi> contax
Contax Subsystem Switch
colab,tx,fwi,cn> consult tools.ctx
Consults a database to all known subsystems
colab,tx,fwi,cn> consult constdef.lisp
Consults a database to all known subsystems
colab,tx,fwi,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,cn,rfe-l> consult library
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult class-feat
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult rng2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult feat2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult anc-program
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult demo
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult examples
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> compile
compile relfun database
;;; Expanding Dynamic Memory
;;; GC: 931536 words [3726144 bytes] of dynamic storage in use.
;;; 198958 words [795832 bytes] of free storage available before a GC.
;;; 1329452 words [5317808 bytes] of free storage available if GC is disabled.
colab,tx,fwi,cn,rfe-l> (init-tool-sel)
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.
true

More solutions?  (Y/N) n

colab,tx,fwi,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,fwi> fw-emul
Forward emulator mode
colab,tx,fwe> rf-query (show-demo)
Query to the RELFUN subsystem

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl45
 (tup (tup radius 25) (tup leftmost cyl45) (tup rightmost cyl45)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl43
 (tup (tup radius 20) (tup leftmost cyl43) (tup rightmost cyl43)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl41
 (tup (tup radius 30) (tup leftmost cyl41) (tup rightmost cyl41)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl39
 (tup (tup radius 40) (tup leftmost cyl39) (tup rightmost cyl39)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 tr38
 (tup (tup center1 50) (tup center2 60) (tup radius1 25) (tup radius2 40)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl36
 (tup (tup radius 20) (tup leftmost cyl36) (tup rightmost cyl36)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl34
 (tup (tup radius 25) (tup leftmost cyl34) (tup rightmost cyl34)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl43-rng44
 (tup
  (tup ground lts-cyl43)
  (tup flank rng44)
  (tup leftmost cyl43)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng42-lts-cyl43
 (tup
  (tup ground lts-cyl43)
  (tup flank rng42)
  (tup leftmost rng42)
  (tup rightmost cyl43) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng40-lts-cyl41
 (tup
  (tup ground lts-cyl41)
  (tup flank rng40)
  (tup leftmost rng40)
  (tup rightmost cyl41) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl36-rng37
 (tup
  (tup ground lts-cyl36)
  (tup flank rng37)
  (tup leftmost cyl36)
  (tup rightmost rng37) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng35-lts-cyl36
 (tup
  (tup ground lts-cyl36)
  (tup flank rng35)
  (tup leftmost rng35)
  (tup rightmost cyl36) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng42-lts-cyl43-rng44
 (tup
  (tup leftflank rng42)
  (tup ground lts-cyl43)
  (tup rightflank rng44)
  (tup leftmost rng42)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng35-lts-cyl36-rng37
 (tup
  (tup leftflank rng35)
  (tup ground lts-cyl36)
  (tup rightflank rng37)
  (tup leftmost rng35)
  (tup rightmost rng37) ) )


------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



constructing classified workpiece ...


classified workpiece:

(cwp
 40
 (tup
  (nft
   (lsh (flk (tup (p 70 40) (p 70 30))) (grd (tup (p 70 30) (p 110 30))))
   (tup) )
  (nft
   (grv
    (flk (tup (p 110 30) (p 110 20)))
    (grd (tup (p 110 20) (p 120 20)))
    (flk (tup (p 120 20) (p 120 25))) )
   (tup) )
  (nft
   (grv
    (flk (tup (p 40 25) (p 40 20)))
    (grd (tup (p 40 20) (p 50 20)))
    (flk (tup (p 50 20) (p 50 25))) )
   (tup) ) ) )




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y


contax tool selection:
  arguments: roughing high-alloy-steel normal 0 90 left
  propagating...
>>Error: The value of STREAM, NIL, should be a STREAM

UNDERLYING-STREAM:
   Required arg 0 (STREAM): NIL
   Optional arg 1 (DIRECTION): :OUTPUT
   Optional arg 2 (RECURSE): T
   Optional arg 3 (EXACT-SAME): T
:C  0: Use a new value
:A  1: Abort to Lisp Top Level

-> :b
UNDERLYING-STREAM <- FORMAT <- COL-ERROR <- COLAB-CONSULT <- CN <- GWAM.CL-FUNC <- EVAL <- INTERPRET <- STEPP <- EMULATE <- COLAB-RFQUERY-FORWARD <- COL-DO-SUBSYSTEM <- COLAB-TOP-EXECUTE <- COLAB-TOP <- COLAB <- EVAL <- SYSTEM:ENTER-TOP-LEVEL
-> ^Z
Suspended
ctec@arctecserv-2: pwd

/home/ctec/colab1
ctec@arctecserv-2: cd top/demo/mcad2nc/

]0; ctec mo/mcad2nc arctecserv-2 ctec@arctecserv-2: ls

anc-program.rf*		   micro2.tx*
brief-intro.rf*		   rfm-only-mcad2nc.script*
class-feat.rf*		   rng2p.rf*
class-feat.rf.beautified*  skeletal.rf*
constdef.lisp*		   start.bat*
demo.rf*		   starttxfw.bat*
demotxfw.rf*		   tools.ctx*
examples.rf*		   tx-access.rf*
feat2p.rf*		   tx-additions.rf*
hybrid.rf*		   tx-parts-emul.rf*
inst.ctx*		   wp-mcad2nc.rf*
library.rf*
ctec@arctecserv-2: view start.bat 

7[?47h[24;1H[?1h="start.bat" [Read only] 34/486 [H[2Jtaxon[H
contax
forward
colab
destroy
taxon
consult micro2.tx
switch reduced-abox t
filter
switch filtered-graph t
forward
automatic
consult wp-mcad2nc.rf
consult tx-parts-emul.rf
replace-strategies  tx-additions.rf
compile-strategies
fw-compile
contax
consult tools.ctx
consult constdef.lisp
rfe
consult library
consult class-feat[H[23B"start.bat" [Read only] 34/486[H[23B[K/contax
[H
[22B[K/[6A





[K
[Aconsult rng2p

[Aconsult feat2p

[Aconsult skeletal

[Aconsult anc-program

[Aconsult demo

[Aconsult examples

[Acompile

[A(init-tool-sel)

[Aforward

[Afw-emul

[Arf-query (show-demo)

[J[?1l>[2J[?47l8ctec@arctecserv-2: view o[Kconstdef.lisp 

7[?47h[24;1H[?1h="constdef.lisp" [Read only] 31/658 [H[2J;; first-char(atom char) delivers as result true if the first char of atom[H
;; it is used in order to find the geometry of a cutting plate.

(lispeval
(defun first-char (atom1 res)
	(cond
((null atom1) nil)[8;13H( t (eq res (intern (substring (string atom1) 0 1))))))
)
;; le180(W1 W2 W3) is true if the sum of W1, W2 and W3 is less or equal 180

(lispeval
(defun le180 (W1 W2 W3)
	(<= (+ (+ W1 W2) W3) 180))
)


;; ge-plus-fa(W1 W2) is true if W1 >= W2 + 5

(lispeval
(defun ge-plus-5 (W1 W2)
	(>= W1 (+ W2 5)))
)[H[23B"constdef.lisp" [Read only] 31/658[H




	
	    






	







	

[K
[A

[A(lispeval

[A(defun ge-or-zero (W1 W2)

[A	(or

[23;12H(>= W1 W2)
	   

[A(equal W1 0)
	   

[23;8H))


[A)
[J[?1l>[2J[?47l8ctec@arctecserv-2: 

ctec@arctecserv-2: grep inst *

brief-intro.rf:; matching instances like (tup 1 2 3 4 5) with the binding _v = (tup 3 4 5).
hybrid.rf:;           <instance-name>
hybrid.rf:; uebereinstimmen, also ganz normale Unifikation wie auch in
hybrid.rf:    (is _featid (make-instance-name shoulder _ltsid _id2)))
hybrid.rf:    (is _featid (make-instance-name shoulder _id2 _ltsid) )
hybrid.rf:    (is _featid (make-instance-name lts _l _rightm)))
hybrid.rf:    (is _featid (make-instance-name lts _leftm _r)))
hybrid.rf:    (is _featid (make-instance-name groove _id1 _id2 _id3)))
inst.ctx:;; instantiation of the constraints and construction of the constraint net
inst.ctx: ( ci inst-ho-to hard holder-tool holder tool )
inst.ctx: ( ci inst-pr-ho hard process-holder process holder )
inst.ctx: ( ci inst-ho-de1 hard holder-desc1 holder direction )
inst.ctx: ( ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle )
inst.ctx: ( ci inst-ho-de3 hard holder-desc3 holder plate )
inst.ctx: ( ci inst-pr-ma-to hard process-material-tool
inst.ctx:( ci inst-pl-ea hard plate-eangle plate edge-angle )
inst.ctx:( ci inst-pr-ea hard process-eangle process edge-angle )
inst.ctx:;; ( ci inst-tc-ea-al hard  tc-ea-al tc-edge-angle edge-angle alpha )
inst.ctx:( ci inst-tc-beta hard tc-beta tc-edge-angle beta)
skeletal.rf:  (rf-print \ \ creating\ constraint\ instances...)
skeletal.rf:  (cn ci inst-ho-to hard holder-tool holder tool)
skeletal.rf:  (cn ci inst-pr-ho hard process-holder process holder)
skeletal.rf:  (cn ci inst-ho-de1 hard holder-desc1 holder direction)
skeletal.rf:  (cn ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle)
skeletal.rf:  (cn ci inst-ho-de3 hard holder-desc3 holder plate)
skeletal.rf:  (cn ci inst-pr-ma-to hard process-material-tool
skeletal.rf:  (cn ci inst-pl-ea hard plate-eangle plate
skeletal.rf:  (cn ci inst-pr-ea hard process-eangle process edge-angle)
skeletal.rf:  ; (cn ci inst-tc-ea-al hard tc-ea-al tc-edge-angle
skeletal.rf:  (cn ci inst-tc-beta hard tc-beta tc-edge-angle beta)
tx-access.rf:;                <instance-name>
tx-access.rf:(hn (data (_concept _instance  _attr-terms))
tx-access.rf:    (member _instance (tx instances _concept))
tx-access.rf:    (is _attr-terms (data-attributes _instance _attr-terms))
tx-access.rf:    ;(rf-pprint `(data (_concept _instance  _attr-terms)))
tx-access.rf:;(hn (data (_concept _instance  _attr-terms))
tx-access.rf:;;    (naf (member _instance (tx instances _concept)))
tx-access.rf:;    (add-data `(_concept _instance  _attr-terms))
tx-access.rf:;    (retain `(_concept _instance  _attr-terms)))
tx-access.rf:(ft (data-attributes _instance))
tx-access.rf:(ft (data-attributes _instance (tup (tup _attr _val)))
tx-access.rf:    (is _val (tx attr-filler _attr _instance))
tx-access.rf:(ft (data-attributes _instance (tup (tup _attr _val) (tup _attr2 _val2) | _attr-terms))
tx-access.rf:    (is _val (tx attr-filler _attr _instance))
tx-access.rf:    (is _rest-terms (data-attributes _instance
tx-access.rf:;                <instance-name>
tx-access.rf:(hn (retain (add-data (_concept _instance-name _args)))
tx-access.rf:    (not-reached `(data (_concept _instance-name _args)))
tx-access.rf:    (is t (tx assert-ind? _instance-name _concept _args))
tx-access.rf:    (rf-pprint `(_concept _instance-name _args))
tx-access.rf:    (push-fact-retain `(data (_concept _instance-name _args))))
tx-access.rf:(ft (df-one (add-data (_old-concept _instance _attr-terms)) _Inference)
tx-access.rf:    (member _concept (tx concept-closure _instance))
tx-access.rf:    (forward `(data (_concept _instance  _attr-terms)) _Conclusion)
tx-access.rf:(ft (df-all1 (add-data (_old-concept _instance _attr-terms)) _Inference)
tx-access.rf:    (member _concept (tx concept-closure _instance))
tx-access.rf:    (forward `(data (_concept instance  _attr-terms)) _Conclusion)
tx-additions.rf:; with specifier INSTANCE to get all instances of the given concept
tx-additions.rf:; and retrieves all the attributes for this instance.
tx-additions.rf:(hn (data _concept _instance  _attr-terms)
tx-additions.rf:    (member _instance (tx instances _concept))
tx-additions.rf:    (is _attr-terms (data-attributes _instance _attr-terms))
tx-additions.rf:    ;(rf-pprint `(data _concept _instance  _attr-terms))
tx-additions.rf:(hn (data _concept _instance  _attr-terms)
tx-additions.rf:;;    (naf (member _instance (tx instances _concept)))
tx-additions.rf:    (add-data _concept _instance  _attr-terms)
tx-additions.rf:    (not-member _instance (tx instances _concept))
tx-additions.rf:;;;    (retain `(_concept _instance  _attr-terms))
tx-additions.rf:    (is _concepts (tx assert-ind? _instance _concept _attr-terms))
tx-additions.rf:    (rf-pprint `(_concept _instance _attr-terms))
tx-additions.rf:; for a given instance.
tx-additions.rf:(ft (data-attributes _instance (tup)))
tx-additions.rf:(ft (data-attributes _instance (tup (tup _attr _val)))
tx-additions.rf:    (is _val (tx attr-filler _attr _instance))
tx-additions.rf:(ft (data-attributes _instance (tup (tup _attr _val) (tup _attr2 _val2) | _attr-terms))
tx-additions.rf:    (is _val (tx attr-filler _attr _instance))
tx-additions.rf:    (is _rest-terms (data-attributes _instance
tx-additions.rf:; has to be asserted as an instance into the TAXON ABox. Such a
tx-additions.rf:;                <instance-name>
tx-additions.rf:(ft (retain (add-data _concept _instance-name _args))
tx-additions.rf:    (not-reached `(data _concept _instance-name _args))
tx-additions.rf:    (is _concepts (tx assert-ind? _instance-name _concept _args))
tx-additions.rf:    (rf-pprint `(_concept _instance-name _args))
tx-additions.rf:    (push-fact-retain `(data _concept _instance-name _args)))
tx-additions.rf:; (i.e. instances from TAXON), the instance is realized in TAXON
tx-additions.rf:; to find all concepts the instance belongs to (concept closure).
tx-additions.rf:					   ;; _concept must! be instantiated
tx-additions.rf:    (member _name (tx instances _concept)) ;; to instantiate _name 
tx-additions.rf:(ft (df-one (add-data _old-concept _instance _attr-terms) _Inference)
tx-additions.rf:    (member _concept (tx concept-closure _instance))    ;;; spezial concept-closure
tx-additions.rf:    (forward `(data _concept _instance  _attr-terms) _Conclusion)
tx-additions.rf:(ft (df-all1 (add-data _old-concept _instance _attr-terms) _Inference)
tx-additions.rf:    (member _concept (tx concept-closure _instance))
tx-additions.rf:    (forward `(data _concept _instance  _attr-terms) _Conclusion)
tx-parts-emul.rf:    (is _featid (make-instance-name shoulder _ltsid _id2)))
tx-parts-emul.rf:    (is _featid (make-instance-name shoulder _id2 _ltsid) ))
tx-parts-emul.rf:    (is _featid (make-instance-name groove _id1 _id2 _id3)))
tx-parts-emul.rf:    (is _featid (make-instance-name lts _cyl)))
tx-parts-emul.rf:    (is _featid (make-instance-name lts _l _rightm)))
tx-parts-emul.rf:    (is _featid (make-instance-name lts _leftm _r)))
ctec@arctecserv-2: 

ctec@arctecserv-2: vi skeletal.rf 

7[?47h[24;1H[?1h="skeletal.rf" 650/15268 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		Skeletal Plans		;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#|

Input: classified workpieces
----------------------------


class-wp ::= (cwp <globals> <feature-list>)

globals ::= "set of global annotations; momentarily the max radius;[19;14Hshould additionally contain the material and the[20;14Hsurface quality"

feature-list ::= (tup { <nested-feature> }* )[H[23B"skeletal.rf" 650/15268[H

















		




[K
[Anested-feature ::= (nft <feature> <feature-list>)

[A

[Afeature ::= <leftshoulder> | <rightshoulder> | <groove> | ...

[A

[Aleftshoulder ::= (lsh <flank> <ground>)

[A

[Arightshoulder :: (rsh <ground> <flank>)

[A

[Agroove ::= (grv <flank> <ground> <flank>)

[A

[Aflank ::= (flk <coordinates>)

[A

[Aground ::= (grd <coordinates>)

[A

[Acoordinates ::= (tup { <point> }* )

[A

[Apoint ::= (p <num> <num>)  ; z-coordinate and radius

[A

[A

[A

[AOutput: skeletal plans

[A----------------------

[A

[A

[Askeletal-plan ::= (skp <globals> <sac-plan>)

[23;19H; sac = sequential/alternative/commutative
		  


[A

[Aplan ::=   (tup)		; empty plan

[A	 | <action>		; atomar action
	 

[A| (seq <plan-list>)	; sequential
	 

[A| (com <plan-list>)	; commutative
	 

[A| (alt <plan-list>)	; alternative
	 


[A

[Aplan-list ::= (tup { <plan> }* )

[A

[Aaction ::= <roughing> | <finishing> | ...

[A

[Aroughing ::= (roughing <tool> <way> <geometry>)

[A

[Atool ::= (tool <plate> <holder>)

[A

[Away ::= left | right ; means: working into this direction

[A

[Ageometry ::= (geo <coordinates>)

[A

[A

[A|#

[A

[A

[A

[A; 1. create skeletal plan
[J[?1l>[2J[?47l8ctec@arctecserv-2: vi skeletal.rf

7[?47h[24;1H[?1h="skeletal.rf" 650/15268 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		Skeletal Plans		;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#|

Input: classified workpieces
----------------------------


class-wp ::= (cwp <globals> <feature-list>)

globals ::= "set of global annotations; momentarily the max radius;[19;14Hshould additionally contain the material and the[20;14Hsurface quality"

feature-list ::= (tup { <nested-feature> }* )[H[23B"skeletal.rf" 650/15268[H[23B[K/cn 
[H[2J  (rf-print contax\ tool\ selection\:)[H
  (rf-print \ \ arguments\:\ )
  (rf-princ _process) (rf-princ \ )
  (rf-princ _wp-material) (rf-princ \ )
  (rf-princ _quality) (rf-princ \ )
  (rf-princ _alpha) (rf-princ \ )
  (rf-princ _beta) (rf-princ \ )
  (rf-princ _direction)
  (rf-terpri)
  (rf-print \ \ propagating...)
  (cn reconsult "decplan.col")
  (is _tools (get-cn-tools
		(cn global hard
		  ; (tup quality _quality)
		  (tup wp-material _wp-material)
		  (tup process _process)
		  (tup alpha _alpha)
		  (tup beta _beta)
		  (tup direction _direction)
		  (tup tool lathe-tools)
		  (tup holder holders)
		  (tup plate plate-geometries)
		  (tup edge-angle edge-angles)[11;4Hcn reconsult "	$
		"tools[P[Ps.	o$ctx
[13B"skeletal.rf" 650/15266 

[J[?1l>[2J[?47l8ctec@arctecserv-2: fg

/usr/local/lucid/lisp-4-1-clos (wd: ~/colab1)

:b
UNDERLYING-STREAM <- FORMAT <- COL-ERROR <- COLAB-CONSULT <- CN <- GWAM.CL-FUNC <- EVAL <- INTERPRET <- STEPP <- EMULATE <- COLAB-RFQUERY-FORWARD <- COL-DO-SUBSYSTEM <- COLAB-TOP-EXECUTE <- COLAB-TOP <- COLAB <- EVAL <- SYSTEM:ENTER-TOP-LEVEL
-> :n
FORMAT:
   Required arg 0 (DESTINATION): T
   Required arg 1 (CONTROL-STRING): "ERROR  ~A ~A ~A"
   Rest arg 2 (ARGUMENTS): ("(col-consult): " #P"/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/decplan.col" " file doesn't exist!")
-> :n
COL-ERROR:
Original code: (NAMED-LAMBDA COL-ERROR (&REST LISTE) (BLOCK COL-ERROR (APPLY # #) (THROW :ERROR NIL)))
   Rest arg 0 (LISTE): ("(col-consult): " #P"/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/decplan.col" " file doesn't exist!")
-> :n
COLAB-CONSULT:
Original code: (NAMED-LAMBDA COLAB-CONSULT (USERLINE &AUX (FILENAME #)) (BLOCK COLAB-CONSULT (IF # # #)))
   Required arg 0 (USERLINE): ("decplan.col")
-> :n
CN:
   Optional arg 0 (CMD): RECONSULT
   Rest arg 1 (ARGS): ("decplan.col")
-> :n^H    
(colab     'user::colab             (quit)
(wd now: ~/colab1/top/demo/mcad2nc)
ctec@arctecserv-2: lucid

/usr/local/lucid: Permission denied.
ctec@arctecserv-2: lucidfg[Kvi skeletal.rf
		2: grep inst *[K
		2: view constdef.lisp
			start.bat[K
		2: ls[Kcd top/demo/mcad2nc/
		2: pwd[K/usr/local/lucid/lisp-4-1-clos

;;; Warning: ADDRESS-UNITS-PER-WORD is not a multiple of the system page siz: 8192 bytes
;;; Lucid Common Lisp/SPARC
;;; Development Environment Version 4.1 Beta DBCS, 9 June 1992
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid and Lucid Common Lisp are trademarks of Lucid, Inc.  Other brand
;;; or product names are trademarks or registered trademarks of their
;;; respective holders.
;;;
;;; This is a preliminary version to be used for testing purposes only.

> lucid
>>Error: The symbol LUCID has no global value

SYMBOL-VALUE:
   Required arg 0 (S): LUCID
:C  0: Try evaluating LUCID again
:A  1: Abort to Lisp Top Level

-> 1
Abort to Lisp Top Level
Back to Lisp Top Level

> (load "../../../my-colab-init.l  ")
;;; Loading source file "../../../my-colab-init.lisp"
;;; Warning: File "../../../my-colab-init.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: File "/home/ctec/colab1/top/start-colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
loading start-colab
;;; Loading source file "/home/ctec/colab1/top/our-fs.lisp"
;;; Warning: File "/home/ctec/colab1/top/our-fs.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

"loading pathname abstraction our-fs" 
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/col-keys.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/col-keys.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/col-init-tx.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/col-init-tx.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/defsystem.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tx-signatur.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tx-signatur.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tax-specific.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/defsystem.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/RFM-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/RFM-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/taxon-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/taxon-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/forward-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/forward-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/contax/contax-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/contax/contax-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading system RELFUN-AUX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/aux/aux.sbin"
;;; done loading system RELFUN-AUX
;;; Loading system RELFUN-RFI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.sbin"
;;; Warning: Redefining Function MORE-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
(cola; Reading file "prelude.rf" ..
RFI - 4 December 1992
   - functions improved:
      - readl
      - consult/replace
      - lconsult/lreplace
      - batch-command
      - script-command
      - listclass
      - transform-query-for-emulator
      - footen-command
   - new functions:
      - footer
      - showdepth-command
   - pretty-print-functions moved to *lisp-extras*b
   - *rfi-readtable* is modified instead of lisp *readtable*
   - spy/nospy also affects compiler/emulator
   - consult/replace works for files with multiple setq or with untagged clauses
   - lconsult/lreplace works also with untagged clauses or expanded macros
   - bar is legalized
   - query for emulator is transformed to special footed-procedure 'main'
   - footer: change radically hn- to ft-clauses
   - showdepth: length spy-trace is displayed with stars
   - PLEASE NOTE: It's enough to say compile (does horizon & verti)
   - call for meta-calls is generalized and renamed to ecal (eval+call)
   - spy shows backquotes of structures bound to variables etc.
   - horizon/compile: flatter, normalize, footen; mode-interpreter interface
   - once, naf, toplevel renamed to relfun, interface function rf
   - initial cut generalized to single cut: (hn (foo _x) ... ! ...)
   - bagof-like tupof: (tupof (likes john _x) `(ok _x)) RETURNS tup of (ok _x)
   - access function rf complies to COLAB specification
   - command deanon for databases and automatic deanonymization of requests
   - COLAB partners fw, cn, tx are NOW ACCESSIBLE AS LISP ***FUNCTIONS***
   - error handling improved and rf-pprint also returns its arg
   - command relationalize (flatten + extrarg) puts return into FIRST arg
   - command singlify transforms multi-footed clauses to single-footed ones
   - commands builtins changed, version introduced
   - flatter now treats complex is lhs
   - database is LIST of lists, or-process has db-left/db-right args, prelude
   - cns is interpreted as LISP cons, normalize command, rf-terpri returns t
   - (foot-)sole cut returns proper value: (ft (foo _x) ... v !) => v'
   - PROLOG-style syntax can be loaded; static-flattener uses mk-inst
   - relfun made recursive for interaction breaks in batch; lisp renamed bye
   - exec made recursive for recursive batch files (cf. recursive includes)
   - value-returning clause primitive (clause `(tag head | body))
   - integrated: PROLOG-style syntax and new horizontals (uncomma ...)
   - date/time-returning date builtin (date); rfi-predicates -> operators
   - report errors to boley@informatik.uni-kl.de
   - start by typing (relfun)

);;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.sbin"

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.sbin"
;;; Warning: Redefining Function PP-INIT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-EXPR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-FINISH which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HANDLE-RFI-CMD which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PRO-COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function READ-FROM-TERMINAL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function RFI-COMMAND which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system RELFUN-RFI
;;; Loading system RELFUN-CODEGENERATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.sbin"
e;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.sbin"
xe;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.sbin"
cCodegenerator 0.53, 19.Sep.90
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.sbin"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Variable *LISP-FUNCTIONS* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *NEXT-CHUNKREG* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning:  Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; done loading system RELFUN-CODEGENERATOR
;;; Loading system RELFUN-NORMALIZERs
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.sbin"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"t
ar;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/debug.sbin"
t;;; done loading system RELFUN-NORMALIZER
;;; Loading system RELFUN-MODE-INTERPRETER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.sbin"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-rfi-interface.sbin"
;;; done loading system RELFUN-MODE-INTERPRETER
;;; Loading system RELFUN-EMULATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.sbin"
NyWam --- Version 0.23g --- 14 Feb 92
;;; Warning: Redefining Variable *EMU-DEBUG* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNTYPE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNMACRO which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNOR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNLAMBDA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HOTRANS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNCOMMA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"

;;; done loading system RELFUN-EMULATOR
;;; Loading system RELFUN-CLASSIFIER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.sbin"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.sbin"

Klassifizierer V 1.0 . Letzte Aenderung: 06. 10. 1990
;;; done loading system RELFUN-CLASSIFIER
;;; Loading system RELFUN-INDEX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.sbin"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/linear.sbin"
;;; done loading system RELFUN-INDEX
;;; Loading system RELFUN
;;; done loading system RELFUN
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/colab-interface.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/colab-interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLAB-RELFUN-HORIZON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-VERTI which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-COMPILE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RFI-CMD-COMPILE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF-1 which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COL-PROMPT-PRINT which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/demo-break.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/demo-break.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
#P"/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/../../../my-colab-init.lisp"
> colab> Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
Try to load; please wait a moment.
;;; Loading system TAXON-FRONT-END
;;; Loading binary file "ibin/geto.sbin"
;;; Loading binary file "ibin/tx-signatur.sbin"
;;; Loading binary file "ibin/graph.sbin"
;;; Loading binary file "ibin/classify.sbin"
;;; Loading binary file "ibin/psgraph.sbin"
;;; Loading binary file "ibin/draw-hierarchy.sbin"
;;; Loading binary file "ibin/draw-on-boards.sbin"
;;; Loading binary file "ibin/draw-objects-on-boards.sbin"
;;; Loading binary file "ibin/abox-manager.sbin"
;;; Loading binary file "ibin/tbox-manager.sbin"
;;; Loading binary file "ibin/absynt.sbin"
;;; Loading binary file "ibin/define.sbin"
;;; Loading binary file "ibin/sprims.sbin"
;;; Loading binary file "ibin/push-not.sbin"
;;; Loading binary file "ibin/assertion.sbin"
;;; Loading binary file "ibin/ro-predicates.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/exp-asse.sbin"
;;; Loading binary file "ibin/subsumption.sbin"
;;; Loading binary file "ibin/filter-graph.sbin"
;;; Loading binary file "ibin/a-reasoning.sbin"
;;; Loading binary file "ibin/cmds.sbin"
;;; Loading binary file "ibin/listing.sbin"
;;; Loading binary file "ibin/ind-reasoning.sbin"
;;; Loading binary file "ibin/exp-pred.sbin"
;;; Loading binary file "ibin/colab-access.sbin"
;;; Loading binary file "ibin/retrieval.sbin"
;;; Loading binary file "ibin/trace.sbin"
;;; Warning: Redefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "ind-reasoning.lisp"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "ind-reasoning.lisp"
;;; Loading binary file "ibin/switch.sbin"
;;; Loading binary file "ibin/tx.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "ibin/help-fu.sbin"
;;; Loading binary file "ibin/save-load-graph.sbin"
;;; done loading system TAXON-FRONT-END
;;; Loading system TAXON-PRINT-FCTS
;;; Loading binary file "ibin/print-fcts.sbin"
;;; done loading system TAXON-PRINT-FCTS
;;; Loading system TAXON-REPRESENTATION
;;; Loading binary file "ibin/cnf-subsumption.sbin"
;;; Loading binary file "ibin/cnf-representation.sbin"
;;; Loading binary file "ibin/generate-cn.sbin"
;;; Loading binary file "ibin/print-cnf.sbin"
;;; Loading binary file "ibin/tr2knf.sbin"
;;; Loading binary file "ibin/constructors2fkts.sbin"
;;; Loading binary file "ibin/get-function.sbin"
;;; Loading binary file "ibin/object.sbin"
;;; Loading binary file "ibin/abstract.sbin"
;;; Loading binary file "ibin/print-abstracts.sbin"
;;; Loading binary file "ibin/concrete.sbin"
;;; Loading binary file "ibin/unknown.sbin"
;;; Loading binary file "ibin/deref.sbin"
;;; done loading system TAXON-REPRESENTATION
;;; Loading system TAXON-SUBSUMPTION
;;; Loading binary file "ibin/make-subs-rules.sbin"
;;; Loading binary file "ibin/subsumes-weakly.sbin"
;;; Loading binary file "ibin/subs-rules.sbin"
;;; done loading system TAXON-SUBSUMPTION
;;; Loading system TAXON-CONSISTENCY
;;; Loading binary file "ibin/print-rule.sbin"
;;; Loading binary file "ibin/stacks.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/choice-points.sbin"
;;; Loading binary file "ibin/clash.sbin"
;;; Loading binary file "ibin/abstract-predicates.sbin"
;;; Loading binary file "ibin/agreements.sbin"
;;; Loading binary file "ibin/backtracking.sbin"
;;; Loading binary file "ibin/concrete-predicates.sbin"
;;; Loading binary file "ibin/cond-fcts.sbin"
;;; Loading binary file "ibin/control.sbin"
;;; Loading binary file "ibin/init.sbin"
;;; Loading binary file "ibin/make-assertions.sbin"
;;; Loading binary file "ibin/make-rules.sbin"
;;; Loading binary file "ibin/pathrules-for-concs.sbin"
;;; Loading binary file "ibin/pathrules-for-preds.sbin"
;;; Loading binary file "ibin/process-stacks.sbin"
;;; Loading binary file "ibin/restrictor-rules.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; Loading binary file "ibin/types.sbin"
;;; done loading system TAXON-CONSISTENCY
;;; Loading system TAXON-INCR-REAL-ORD
;;; Loading binary file "ibin/make-predicates.sbin"
;;; Loading binary file "ibin/print-RO.sbin"
;;; Loading binary file "ibin/propagate-number-rest.sbin"
;;; Loading binary file "ibin/propagate-number.sbin"
;;; Loading binary file "ibin/propagate-real.sbin"
;;; Loading binary file "ibin/propagate-symbolic.sbin"
;;; Loading binary file "ibin/representation.sbin"
;;; Loading binary file "ibin/symbolic-clash.sbin"
;;; Loading binary file "ibin/propagate-new.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; done loading system TAXON-INCR-REAL-ORD
;;; Loading system TAXON-CONCRETE
;;; Loading binary file "ibin/get-rules.sbin"
;;; done loading system TAXON-CONCRETE
;;; Loading system TAXON
;;; done loading system TAXON
colab,tx> contax
Contax Subsystem Switch
Try to load; please wait a moment.
;;; Loading system CONTAX
;;; Loading binary file "contax-sbin/assistant-macros.sbin"
;;; Loading binary file "contax-sbin/assistant-functions.sbin"
;;; Loading binary file "contax-sbin/constraint-queues.sbin"
;;; Loading binary file "contax-sbin/hierarchies.sbin"
;;; Loading binary file "contax-sbin/variables.sbin"
;;; Loading binary file "contax-sbin/constraints.sbin"
;;; Loading binary file "contax-sbin/predicates.sbin"
;;; Loading binary file "contax-sbin/revise.sbin"
;;; Loading binary file "contax-sbin/control.sbin"
;;; Loading binary file "contax-sbin/programmer-interface.sbin"
;;; Loading binary file "contax-sbin/negation.sbin"
;;; Loading binary file "contax-sbin/colab-interface.sbin"
;;; Warning: Redefining Function COLAB-DESTROY-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-CONSULT-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "contax-sbin/user-interface.sbin"
;;; Loading binary file "contax-sbin/debugger.sbin"
;;; done loading system CONTAX
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/contax/convert-hierarchy.lisp"
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
colab,tx,cn> forward
Forward Subsystem Switch
Try to load; please wait a moment.
;;; Loading system FW-BASIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/fc-strategies.rf" ..; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/forward-prelude.rf" ..
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-access.sbin"
;;; done loading system FW-BASIC
;;; Loading system FW-SEMI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/semi-naive/semi-naive.sbin"
;;; done loading system FW-SEMI
;;; Loading system FW-META
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.sbin"
;;; Warning: Redefining Function OR-PROCESS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function CLAUSE-T which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function S-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function APPEND-GUARDS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system FW-META
;;; Loading system FW-MAGIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/magic/magic-sets.sbin"
;;; done loading system FW-MAGIC
;;; Loading system FW-INTER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-horizon-comp.sbin"
;;; done loading system FW-INTER
;;; Loading system FW-GASM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.sbin"
;;; Warning: Redefining Function CLASSIFY-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Warning: Redefining Function WANDEL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function READ-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function GWAM.HAS-FAILED which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function PRINTMSEG which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function SHOW-VALUE-OF-SOMETHING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function VALUE-HELP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.sbin"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/procedures.sbin"
;;; done loading system FW-GASM
;;; Loading system FW-EMUL
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/fw-gassem-startup.sbin"
;;; done loading system FW-EMUL
;;; Loading system FW-FAM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.sbin"

FAM  Ver 1.1 , 12. Juni 92
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/interface.sbin"
;;; done loading system FW-FAM
;;; Loading system FW-TX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.sbin"

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/tx-transformer.sbin"
;;; done loading system FW-TX
;;; Loading system FORWARD
;;; done loading system FORWARD
colab,tx,cn,fwi> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> consult micro2.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> filter
filter subsumption graph
colab,tx> switch filtered-graph t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> automatic
Activate automatic mode
colab,tx,fwi> consult wp-mcad2nc.rf
Consults a database to all known subsystems

(ASC-CIRCLE) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(ASC-TC) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(CYLINDER) 
(DESC-CIRCLE) 
colab,tx,fwi> consult tx-parts-emul.rf
Consults a database to all known subsystems
colab,tx,fwi> replace-strategies  tx-additions.rf
Replace the strategies
; Reading file "/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/tx-additions.rf" ..
colab,tx,fwi> compile-strategies
Compile the actual strategies
;;; Expanding Dynamic Memory
colab,tx,fwi> fw-compile
Compile all databases
colab,tx,fwi> contax
Contax Subsystem Switch
colab,tx,fwi,cn> consult tools.ctx
Consults a database to all known subsystems
colab,tx,fwi,cn> consult constdef.lisp
Consults a database to all known subsystems
colab,tx,fwi,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,cn,rfe-l> consult library
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult class-feat
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult rng2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult feat2p
Consults a database to all known subsystems
;;; GC: 517328 words [2069312 bytes] of dynamic storage in use.
;;; 138030 words [552120 bytes] of free storage available before a GC.
;;; 793388 words [3173552 bytes] of free storage available if GC is disabled.
;;; GC: 517328 words [2069312 bytes] of dynamic storage in use.
;;; 138030 words [552120 bytes] of free storage available before a GC.
;;; 793388 words [3173552 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,fwi,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult anc-program
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult demo
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult examples
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> compile
compile relfun database
;;; GC: 617050 words [2468200 bytes] of dynamic storage in use.
;;; 267684 words [1070736 bytes] of free storage available before a GC.
;;; 1152418 words [4609672 bytes] of free storage available if GC is disabled.
;;; GC: 617050 words [2468200 bytes] of dynamic storage in use.
;;; 267684 words [1070736 bytes] of free storage available before a GC.
;;; 1152418 words [4609672 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,fwi,cn,rfe-l> (init-tool-sel)
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.
true

More solutions?  (Y/N) y


unknown
colab,tx,fwi,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,fwi> fw-emul
Forward emulator mode
colab,tx,fwe> rf-query (show-demo)
Query to the RELFUN subsystem

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl45
 (tup (tup radius 25) (tup leftmost cyl45) (tup rightmost cyl45)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl43
 (tup (tup radius 20) (tup leftmost cyl43) (tup rightmost cyl43)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl41
 (tup (tup radius 30) (tup leftmost cyl41) (tup rightmost cyl41)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl39
 (tup (tup radius 40) (tup leftmost cyl39) (tup rightmost cyl39)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 tr38
 (tup (tup center1 50) (tup center2 60) (tup radius1 25) (tup radius2 40)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl36
 (tup (tup radius 20) (tup leftmost cyl36) (tup rightmost cyl36)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl34
 (tup (tup radius 25) (tup leftmost cyl34) (tup rightmost cyl34)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl43-rng44
 (tup
  (tup ground lts-cyl43)
  (tup flank rng44)
  (tup leftmost cyl43)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng42-lts-cyl43
 (tup
  (tup ground lts-cyl43)
  (tup flank rng42)
  (tup leftmost rng42)
  (tup rightmost cyl43) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng40-lts-cyl41
 (tup
  (tup ground lts-cyl41)
  (tup flank rng40)
  (tup leftmost rng40)
  (tup rightmost cyl41) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl36-rng37
 (tup
  (tup ground lts-cyl36)
  (tup flank rng37)
  (tup leftmost cyl36)
  (tup rightmost rng37) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng35-lts-cyl36
 (tup
  (tup ground lts-cyl36)
  (tup flank rng35)
  (tup leftmost rng35)
  (tup rightmost cyl36) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng42-lts-cyl43-rng44
 (tup
  (tup leftflank rng42)
  (tup ground lts-cyl43)
  (tup rightflank rng44)
  (tup leftmost rng42)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng35-lts-cyl36-rng37
 (tup
  (tup leftflank rng35)
  (tup ground lts-cyl36)
  (tup rightflank rng37)
  (tup leftmost rng35)
  (tup rightmost rng37) ) )


------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



constructing classified workpiece ...


classified workpiece:

(cwp
 40
 (tup
  (nft
   (lsh (flk (tup (p 70 40) (p 70 30))) (grd (tup (p 70 30) (p 110 30))))
   (tup) )
  (nft
   (grv
    (flk (tup (p 110 30) (p 110 20)))
    (grd (tup (p 110 20) (p 120 20)))
    (flk (tup (p 120 20) (p 120 25))) )
   (tup) )
  (nft
   (grv
    (flk (tup (p 40 25) (p 40 20)))
    (grd (tup (p 40 20) (p 50 20)))
    (flk (tup (p 50 20) (p 50 25))) )
   (tup) ) ) )




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y


contax tool selection:
  arguments: roughing high-alloy-steel normal 0 90 left
  propagating...Expanding multitasking main lisp stack due to overflow.

;;; GC: 898470 words [3593880 bytes] of dynamic storage in use.
;;; 264792 words [1059168 bytes] of free storage available before a GC.
;;; 1428054 words [5712216 bytes] of free storage available if GC is disabled.
;;; GC: 1041228 words [4164912 bytes] of dynamic storage in use.
;;; 122034 words [488136 bytes] of free storage available before a GC.
;;; 1285296 words [5141184 bytes] of free storage available if GC is disabled.
>>Trap: Stack grown due to overflow

GETHASH:
   Required arg 0 (KEY): NIL
   Required arg 1 (HASH-TABLE): #<Hash-Table 12F5D3E>
   Optional arg 2 (DEFAULT): NIL
:A  0: Abort to Lisp Top Level

-> :b
GETHASH <- CONTAX:FIND-VARIABLE <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL)) <- (:EFFECTIVE-METHOD CONTAX::VAR-CONS (SYMBOL))
Plus 99919 more frames (bottom frame is ENTER-TOP-LEVEL, use :b ENTER-TOP-LEVEL to see all.)
-> (colab)
Expanding multitasking main lisp stack due to overflow.
;;; Warning: Only 1 stack guard remaining for #<Process Initial 7C3FE6>, so aborting
The value of NIL for *STANDARD-OUTPUT* seems unreasonable.
Should *STANDARD-OUTPUT* be restored from NIL to NIL?  (Y or N): y
>>Trap: Stack grown due to overflow

GETHASH:
   Required arg 0 (KEY): NIL
   Required arg 1 (HASH-TABLE): #<Hash-Table 12F5D3E>
   Optional arg 2 (DEFAULT): NIL
:A  0: Abort to Lisp Top Level

-> 0
Abort to Lisp Top Level
The value of NIL for *STANDARD-OUTPUT* seems unreasonable.
Should *STANDARD-OUTPUT* be restored from NIL to NIL?  (Y or N): y
Back to Lisp Top Level

> (colab)
colab,tx,fwe> contax
Contax Subsystem Switch
colab,tx,fwe,cn> listing
Lists all known databases

The TAXON Knowledge Base
========================

Attribute Declarations:
-----------------------
 Identifier              Type    Definition 

 LEFTFLANK               ATTR   LEFTFLANK 

 CENTER2                 ATTR   CENTER2 

 RIGHTFLANK              ATTR   RIGHTFLANK 

 RADIUS1                 ATTR   RADIUS1 

 GROUND                  ATTR   GROUND 

 DEPTH                   ATTR   DEPTH 

 CENTER1                 ATTR   CENTER1 

 LEFTMOST                ATTR   LEFTMOST 

 FLANK                   ATTR   FLANK 

 RADIUS                  ATTR   RADIUS 

 RIGHTMOST               ATTR   RIGHTMOST 

 RADIUS2                 ATTR   RADIUS2 

 DEPTH2WIDTH             ATTR   DEPTH2WIDTH 

 WIDTH                   ATTR   WIDTH 

14 attribute declarations

Role Declarations:
------------------
 Identifier              Type    Definition 

0 role declarations

Disjoint Primitive Concepts:
----------------------------
 Identifier              Type    Family           Type 

 RIGHT                   SPRIM   (DIRECTIONS)     CLOSED 

 +LTS                    SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 +LTS+                   SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 H-LTS                   SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 NCONIC                  SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 LTS+                    SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 ATOMIC                  SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 BICONIC                 SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 TRICONIC                SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 LEFT                    SPRIM   (DIRECTIONS)     CLOSED 

10 disjoint primitive concepts

Open Families of Disjoint Primitives:
-------------------------
 Identifier              Type    Definition 

 LEVELS-OF-COMPOSITION   OFAM   Open Family: LEVELS-OF-COMPOSITION 
Members:    (ATOMIC BICONIC TRICONIC NCONIC) 

1 open families

Closed Families of Disjoint Primitives:
-------------------------
 Identifier              Type    Definition 

 DIRECTIONS              CFAM   Closed Family: DIRECTIONS 
Members:      (LEFT RIGHT) 

1 closed families

Disjoint Primitive Concepts:
----------------------------
 Identifier              Type    Family           Type 

 RIGHT                   SPRIM   (DIRECTIONS)     CLOSED 

 +LTS                    SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 +LTS+                   SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 H-LTS                   SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 NCONIC                  SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 LTS+                    SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 ATOMIC                  SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 BICONIC                 SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 TRICONIC                SPRIM   (LEVELS-OF-COMPOSITION)   OPEN 

 LEFT                    SPRIM   (DIRECTIONS)     CLOSED 

10 disjoint primitive concepts

Primitive Concepts:
-------------------
 Identifier              Type    Definition 

0 primitive concept declarations

Concrete Predicate Definitions:
-------------------------
 Identifier              Type    Definition 

 =0                      CPRED   (=0 (RO (X) (= X 0))) 

 >0                      CPRED   (>0 (RO (X) (> X 0))) 

 >=                      CPRED   (>= (RO (X Y) (>= X Y))) 

 INSERTION-CONDITION     CPRED   (INSERTION-CONDITION (RO (D2W D) (AND (< D2W 0.25) (< D 30)))) 

 !=                      CPRED   (!= (RO (X Y) (<> X Y))) 

 <0                      CPRED   (<0 (RO (X) (< X 0))) 

 TC-CONDITION            CPRED   (TC-CONDITION (RO (R1 R2 C1 C2) (AND (>= R1 0) (>= R2 0) (OR (AND (= C1 C2) (<> R1 R2)) (AND (<> C1 C2) (OR (> R1 0) (> R2 0))))))) 

 <=0                     CPRED   (<=0 (RO (X) (<= X 0))) 

 >                       CPRED   (> (RO (X Y) (> X Y))) 

 <                       CPRED   (< (RO (X Y) (< X Y))) 

 >=0                     CPRED   (>=0 (RO (X) (>= X 0))) 

 <=                      CPRED   (<= (RO (X Y) (<= X Y))) 

 =                       CPRED   (= (RO (X Y) (= X Y))) 

13 concrete predicate definitions

Abstract Predicate Definitions:
-------------------------
 Identifier              Type    Definition 

 NEIGHBOURING            APRED   (NEIGHBOURING 2) 

1 abstract predicate definitions

Concept Definitions:
-------------------------
 Identifier              Type    Definition 

 HOLLOW                  CONC   (HOLLOW (AND (FORALL (CENTER1) (CENTER2) >))) 

 DESCENDING              CONC   (DESCENDING (AND (FORALL (RADIUS1) (RADIUS2) >=))) 

 TC+LTS+TC               CONC   (TC+LTS+TC (AND +LTS+ FEATURE (SOME (LEFTFLANK) TRUNCONE) (SOME (RIGHTFLANK) TRUNCONE) (SOME (GROUND) LTS) (AGREE (LEFTMOST) (LEFTFLANK)) (AGREE (RIGHTMOST) (RIGHTFLANK)))) 

 CONE                    CONC   (CONE (AND TRUNCONE (OR (FORALL (RADIUS1) =0) (FORALL (RADIUS2) =0)))) 

 DESC-CONE               CONC   (DESC-CONE (AND TRUNCONE (FORALL (RADIUS2) =0))) 

 LTS+TC                  CONC   (LTS+TC (AND LTS+ FEATURE (AGREE (RIGHTMOST) (FLANK)) (AGREE (LEFTMOST) (GROUND LEFTMOST)) (SOME (FLANK) TRUNCONE) (SOME (GROUND) LTS))) 

 ASCENDING               CONC   (ASCENDING (AND (FORALL (RADIUS1) (RADIUS2) <=))) 

 RSHOULDER               CONC   (RSHOULDER (AND LTS+TC (FORALL (FLANK) ASCENDING))) 

 LTS                     CONC   (LTS (AND H-LTS FEATURE (FORALL (RADIUS) >=0))) 

 DOWN-STEP               CONC   (DOWN-STEP (AND TC+LTS+TC (FORALL (LEFTFLANK) DESCENDING) (FORALL (RIGHTFLANK) DESCENDING))) 

 FILLED                  CONC   (FILLED (AND (FORALL (CENTER1) (CENTER2) <))) 

 FEATURE                 CONC   (FEATURE (AND (SOME (LEFTMOST) TRUNCONE) (SOME (RIGHTMOST) TRUNCONE) (FORALL (LEFTMOST CENTER1) (RIGHTMOST CENTER2) <=))) 

 ASC-CONE                CONC   (ASC-CONE (AND TRUNCONE (FORALL (RADIUS1) =0))) 

 DESC-TC                 CONC   (DESC-TC (AND TRUNCONE DESCENDING)) 

 BOTTOM                  CONC   BOTTOM 

 DESC-CIRCLE             CONC   (DESC-CIRCLE (AND RING (FORALL (RADIUS2) =0))) 

 UP-STEP                 CONC   (UP-STEP (AND TC+LTS+TC (FORALL (LEFTFLANK) ASCENDING) (FORALL (RIGHTFLANK) ASCENDING))) 

 LSHOULDER               CONC   (LSHOULDER (AND TC+LTS (FORALL (FLANK) DESCENDING))) 

 TRUNCONE                CONC   (TRUNCONE (AND ATOMIC (SOME (RADIUS1) (RADIUS2) (CENTER1) (CENTER2) TC-CONDITION))) 

 LONGTURNINGSURFACE      CONC   (LONGTURNINGSURFACE LTS) 

 ASC-TC                  CONC   (ASC-TC (AND TRUNCONE ASCENDING)) 

 ASC-CIRCLE              CONC   (ASC-CIRCLE (AND RING (FORALL (RADIUS1) =0))) 

 TOWER                   CONC   (TOWER (AND TC+LTS+TC (FORALL (LEFTFLANK) ASCENDING) (FORALL (RIGHTFLANK) DESCENDING))) 

 FLANKRIGHT2GROUND       CONC   (FLANKRIGHT2GROUND (AND (FORALL (FLANK LEFTMOST CENTER1) (GROUND LEFTMOST CENTER2) >=))) 

 INSERTION               CONC   (INSERTION (AND GROOVE (FORALL (DEPTH2WIDTH) (DEPTH) INSERTION-CONDITION))) 

 CYLINDER                CONC   (CYLINDER (AND TRUNCONE (FORALL (RADIUS1) (RADIUS2) =))) 

 RNOSE                   CONC   (RNOSE (AND LTS+TC (FORALL (FLANK) DESCENDING))) 

 TC+LTS                  CONC   (TC+LTS (AND +LTS FEATURE (AGREE (LEFTMOST) (FLANK)) (AGREE (RIGHTMOST) (GROUND RIGHTMOST)) (SOME (FLANK) TRUNCONE) (SOME (GROUND) LTS))) 

 FLANKLEFT2GROUND        CONC   (FLANKLEFT2GROUND (AND (FORALL (FLANK LEFTMOST CENTER1) (GROUND LEFTMOST CENTER2) <=))) 

 LNOSE                   CONC   (LNOSE (AND TC+LTS (FORALL (FLANK) ASCENDING))) 

 GROOVE                  CONC   (GROOVE (AND TC+LTS+TC (FORALL (LEFTFLANK) DESCENDING) (FORALL (RIGHTFLANK) ASCENDING))) 

 DESC-RING               CONC   (DESC-RING (AND RING DESCENDING)) 

 SHOULDER                CONC   (SHOULDER (OR LSHOULDER RSHOULDER)) 

 RING                    CONC   (RING (AND TRUNCONE (FORALL (CENTER1) (CENTER2) =))) 

 CIRCLE                  CONC   (CIRCLE (AND RING (OR (FORALL (RADIUS1) =0) (FORALL (RADIUS2) =0)))) 

 TOP                     CONC   TOP 

 ASC-RING                CONC   (ASC-RING (AND RING ASCENDING)) 

37 concept definitions

Assertions:
--------------------------------------------------------------------------
    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG35-LTS-CYL36-RNG37 (RIGHTMOST) RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG35-LTS-CYL36-RNG37 (LEFTMOST) RNG35)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG35-LTS-CYL36-RNG37 (RIGHTFLANK) RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG35-LTS-CYL36-RNG37 (GROUND) LTS-CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG35-LTS-CYL36-RNG37 (LEFTFLANK) RNG35)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (GROOVE GROOVE-RNG35-LTS-CYL36-RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG42-LTS-CYL43-RNG44 (RIGHTMOST) RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG42-LTS-CYL43-RNG44 (LEFTMOST) RNG42)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG42-LTS-CYL43-RNG44 (RIGHTFLANK) RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG42-LTS-CYL43-RNG44 (GROUND) LTS-CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (GROOVE-RNG42-LTS-CYL43-RNG44 (LEFTFLANK) RNG42)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (GROOVE GROOVE-RNG42-LTS-CYL43-RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (RADIUS1) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (CENTER2) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (CENTER1) 0)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE CIRC33)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (CENTER2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (CENTER1) 40)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE RNG35)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG35-LTS-CYL36 (RIGHTMOST) CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG35-LTS-CYL36 (LEFTMOST) RNG35)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG35-LTS-CYL36 (FLANK) RNG35)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG35-LTS-CYL36 (GROUND) LTS-CYL36)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (SHOULDER SHOULDER-RNG35-LTS-CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL36-RNG37 (RIGHTMOST) RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL36-RNG37 (LEFTMOST) CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL36-RNG37 (FLANK) RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL36-RNG37 (GROUND) LTS-CYL36)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (SHOULDER SHOULDER-LTS-CYL36-RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (CENTER2) 50)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (CENTER1) 50)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (RADIUS2) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (RADIUS1) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (CENTER2) 70)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (CENTER1) 70)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE RNG40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG40-LTS-CYL41 (RIGHTMOST) CYL41)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG40-LTS-CYL41 (LEFTMOST) RNG40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG40-LTS-CYL41 (FLANK) RNG40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG40-LTS-CYL41 (GROUND) LTS-CYL41)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (SHOULDER SHOULDER-RNG40-LTS-CYL41)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (RADIUS1) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (CENTER2) 110)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (CENTER1) 110)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE RNG42)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG42-LTS-CYL43 (RIGHTMOST) CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG42-LTS-CYL43 (LEFTMOST) RNG42)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG42-LTS-CYL43 (FLANK) RNG42)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-RNG42-LTS-CYL43 (GROUND) LTS-CYL43)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (SHOULDER SHOULDER-RNG42-LTS-CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL43-RNG44 (RIGHTMOST) RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL43-RNG44 (LEFTMOST) CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL43-RNG44 (FLANK) RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (SHOULDER-LTS-CYL43-RNG44 (GROUND) LTS-CYL43)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (SHOULDER SHOULDER-LTS-CYL43-RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (CENTER2) 120)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (CENTER1) 120)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (RADIUS2) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (CENTER2) 150)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (CENTER1) 150)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE CIRC46)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (RADIUS1) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (CENTER2) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (CENTER1) 0)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (ASC-TC CIRC33)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL34 (RIGHTMOST) CYL34)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL34 (LEFTMOST) CYL34)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL34 (RADIUS) 25)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (LONGTURNINGSURFACE LTS-CYL34)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (CENTER2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (CENTER1) 40)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (DESC-TC RNG35)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL36 (RIGHTMOST) CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL36 (LEFTMOST) CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL36 (RADIUS) 20)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (LONGTURNINGSURFACE LTS-CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (CENTER2) 50)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (CENTER1) 50)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (ASC-TC RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (RADIUS2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (CENTER2) 60)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (CENTER1) 50)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (ASC-TC TR38)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL39 (RIGHTMOST) CYL39)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL39 (LEFTMOST) CYL39)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL39 (RADIUS) 40)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (LONGTURNINGSURFACE LTS-CYL39)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (RADIUS2) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (RADIUS1) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (CENTER2) 70)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (CENTER1) 70)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (DESC-TC RNG40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL41 (RIGHTMOST) CYL41)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL41 (LEFTMOST) CYL41)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL41 (RADIUS) 30)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (LONGTURNINGSURFACE LTS-CYL41)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (RADIUS1) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (CENTER2) 110)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (CENTER1) 110)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (DESC-TC RNG42)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL43 (RIGHTMOST) CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL43 (LEFTMOST) CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL43 (RADIUS) 20)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (LONGTURNINGSURFACE LTS-CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (CENTER2) 120)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (CENTER1) 120)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (ASC-TC RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL45 (RIGHTMOST) CYL45)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL45 (LEFTMOST) CYL45)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (LTS-CYL45 (RADIUS) 25)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (LONGTURNINGSURFACE LTS-CYL45)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (RADIUS2) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (CENTER2) 150)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (CENTER1) 150)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (DESC-TC CIRC46)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (RADIUS2) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (CENTER2) 150)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC46 (CENTER1) 150)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CIRCLE CIRC46)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL45 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL45 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL45 (CENTER2) 150)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL45 (CENTER1) 120)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CYLINDER CYL45)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (CENTER2) 120)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG44 (CENTER1) 120)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (RING RNG44)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL43 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL43 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL43 (CENTER2) 120)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL43 (CENTER1) 110)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CYLINDER CYL43)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (RADIUS1) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (CENTER2) 110)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG42 (CENTER1) 110)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (RING RNG42)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL41 (RADIUS2) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL41 (RADIUS1) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL41 (CENTER2) 110)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL41 (CENTER1) 70)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CYLINDER CYL41)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (RADIUS2) 30)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (RADIUS1) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (CENTER2) 70)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG40 (CENTER1) 70)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (RING RNG40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL39 (RADIUS2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL39 (RADIUS1) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL39 (CENTER2) 70)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL39 (CENTER1) 60)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CYLINDER CYL39)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (RADIUS2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (CENTER2) 60)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (TR38 (CENTER1) 50)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (TRUNCONE TR38)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (CENTER2) 50)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG37 (CENTER1) 50)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (RING RNG37)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL36 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL36 (RADIUS1) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL36 (CENTER2) 50)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL36 (CENTER1) 40)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CYLINDER CYL36)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (RADIUS2) 20)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (CENTER2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (RNG35 (CENTER1) 40)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (RING RNG35)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL34 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL34 (RADIUS1) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL34 (CENTER2) 40)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CYL34 (CENTER1) 0)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CYLINDER CYL34)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (RADIUS2) 25)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (RADIUS1) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (CENTER2) 0)

--------------------------------------------------------------------------

    Type                            :  ATTR-FILLER-ASSERTION
     Extern                          :  (CIRC33 (CENTER1) 0)

--------------------------------------------------------------------------

    Type                            :  MEMBERSHIP-ASSERTION
     Extern                          :  (CIRCLE CIRC33)

--------------------------------------------------------------------------

206 assertions

(CI INST-TC-BETA HARD TC-BETA TC-EDGE-ANGLE BETA)
(CI INST-PR-EA HARD PROCESS-EANGLE PROCESS EDGE-ANGLE)
(CI INST-PL-EA HARD PLATE-EANGLE PLATE EDGE-ANGLE)
(CI INST-PR-MA-TO HARD PROCESS-MATERIAL-TOOL PROCESS WP-MATERIAL TOOL)
(CI INST-HO-DE3 HARD HOLDER-DESC3 HOLDER PLATE)
(CI INST-HO-DE2 HARD HOLDER-DESC2 HOLDER TC-EDGE-ANGLE)
(CI INST-HO-DE1 HARD HOLDER-DESC1 HOLDER DIRECTION)
(CI INST-PR-HO HARD PROCESS-HOLDER PROCESS HOLDER)
(CI INST-HO-TO HARD HOLDER-TOOL HOLDER TOOL)
(CV TC-EDGE-ANGLE HRCL (TC-EDGE-ANGLES))
(CV EDGE-ANGLE HRCL (EDGE-ANGLES))
(CV PLATE HRCL (PLATE-GEOMETRIES))
(CV DIRECTION HRCL (DIRECTIONS))
(CV BETA HRCL (ACUTE-ANGLES))
(CV ALPHA HRCL (ACUTE-ANGLES))
(CV HOLDER HRCL (HOLDERS))
(CV TOOL HRCL (LATHE-TOOLS))
(CV PROCESS HRCL (PROCESSES))
(CV WP-MATERIAL HRCL (WP-MATERIALS))
(LISPEVAL (DEFUN GE-OR-ZERO (W1 W2) (OR (>= W1 W2) (EQUAL W1 0))))
(LISPEVAL (DEFUN GE-PLUS-5 (W1 W2) (>= W1 (+ W2 5))))
(LISPEVAL (DEFUN LE180 (W1 W2 W3) (<= (+ (+ W1 W2) W3) 180)))
(LISPEVAL (DEFUN FIRST-CHAR (ATOM1 RES) (COND ((NULL ATOM1) NIL) (T (EQ RES (INTERN (SUBSTRING (STRING ATOM1) 0 1)))))))
(LC TC-BETA (TC BT) (TC-EDGE-ANGLES ACUTE-ANGLES) GE-OR-ZERO)
(LC TC-EA-AL (TC EA AL) (TC-EDGE-ANGLES EDGE-ANGLES ACUTE-ANGLES) LE180)
(PC PROCESS-EANGLE (PR EA) (PROCESSES EDGE-ANGLES) (ROUGHING SMALL-EDGE-ANGLES) (ROUGHING MEDIUM-EDGE-ANGLES) (FINISHING MEDIUM-EDGE-ANGLES) (FINISHING BIG-EDGE-ANGLES))
(PC PLATE-EANGLE (TO PL) (PLATE-GEOMETRIES EDGE-ANGLES) (R 0) (S 90) (T 60) (D 55) (C 80) (K 55))
(PC PROCESS-MATERIAL-TOOL (PR MA TO) (PROCESSES WP-MATERIALS LATHE-TOOLS) (ROUGHING STEEL MM71) (ROUGHING CAST MM71) (ROUGHING CAST NMA) (ROUGHING STAINLESS-STEEL MM41) (ROUGHING ALLOY-STEEL NMA) (ROUGHING LOW-ALLOY-STEEL MM52) (PROCESSES ALU NMG) (PROCESSES STEEL RCMX) (PROCESSES CAST RCMX))
(PC HOLDER-DESC3 (HO PL) (HOLDERS PLATE-GEOMETRIES) (TMAXP-PTL90 T) (TMAXP-PTR90 T) (TMAXP-PTL80 T) (TMAXP-PTR80 T) (TMAXP-PTN60 T) (TMAXP-PTL45 T) (TMAXP-PTR45 T) (TMAXP-PSL75 S) (TMAXP-PSR75 S) (TMAXP-PSL45 S) (TMAXP-PSR45 S) (TMAXP-PSN45 S) (TMAXP-PCL95 C) (TMAXP-PCR95 C) (TMAXP-PCL75 C) (TMAXP-PCR75 C) (TMAXP-PCR65 C) (TMAXP-PCN65 C) (TMAXP-PDL93 D) (TMAXP-PDR93 D) (TMAXP-PRL30 R) (TMAXP-PRR30 R) (TMAXP-PRL40 R))
(PC HOLDER-DESC2 (HO TC) (HOLDERS TC-EDGE-ANGLES) (TMAXP-PTL90 90) (TMAXP-PTR90 90) (TMAXP-PTL80 80) (TMAXP-PTR80 80) (TMAXP-PTN60 60) (TMAXP-PTL45 45) (TMAXP-PTR45 45) (TMAXP-PSL75 75) (TMAXP-PSR75 75) (TMAXP-PSL45 45) (TMAXP-PSR45 45) (TMAXP-PSN45 45) (TMAXP-PCL95 95) (TMAXP-PCR95 95) (TMAXP-PCL75 75) (TMAXP-PCR75 75) (TMAXP-PCR65 65) (TMAXP-PCN65 65) (TMAXP-PDL93 93) (TMAXP-PDR93 93) (TMAXP-PRL30 0) (TMAXP-PRR30 0) (TMAXP-PRL40 0))
(PC HOLDER-DESC1 (HO DI) (HOLDERS DIRECTIONS) (TMAXP-PTL90 LEFT) (TMAXP-PTR90 RIGHT) (TMAXP-PTL80 LEFT) (TMAXP-PTR80 RIGHT) (TMAXP-PTN60 DIRECTIONS) (TMAXP-PTL45 LEFT) (TMAXP-PTR45 RIGHT) (TMAXP-PSL75 LEFT) (TMAXP-PSR75 RIGHT) (TMAXP-PSL45 LEFT) (TMAXP-PSR45 RIGHT) (TMAXP-PSN45 DIRECTIONS) (TMAXP-PCL95 LEFT) (TMAXP-PCR95 RIGHT) (TMAXP-PCL75 LEFT) (TMAXP-PCR75 RIGHT) (TMAXP-PCR65 RIGHT) (TMAXP-PCN65 DIRECTIONS) (TMAXP-PDL93 LEFT) (TMAXP-PDR93 RIGHT) (TMAXP-PRL30 LEFT) (TMAXP-PRR30 RIGHT) (TMAXP-PRL40 LEFT))
(PC PROCESS-HOLDER (PR HO) (PROCESSES HOLDERS) (ROUGHING TMAX-P) (FINISHING TMAX-U))
(PC HOLDER-TOOL (HO TO) (HOLDERS LATHE-TOOLS) (PT TNMM-71) (PT TNMM-41) (PT TNMG) (PS SNMM-71) (PS SNMM-41) (PS SNMG) (PC CNMM-71) (PC CNMM-41) (PC CNMG) (PC CNMA) (PR RCMX) (PR RNMG) (PD DNMG) (PD DNMM-71) (PD DNMM-41))
(DD DIRECTIONS (LEFT RIGHT))
(DD PLATE-GEOMETRIES (R S T D C K))
(DD BIG-EDGE-ANGLES (0 80 90))
(DD MEDIUM-EDGE-ANGLES (55 60))
(DD SMALL-EDGE-ANGLES (0 35))
(DD EDGE-ANGLES (0 SMALL-EDGE-ANGLES MEDIUM-EDGE-ANGLES BIG-EDGE-ANGLES))
(DD BIG-TC-ANGLES (90 93 95))
(DD SMALL-TC-ANGLES (45 60 72 75))
(DD TC-EDGE-ANGLES (0 SMALL-TC-ANGLES BIG-TC-ANGLES))
(DD ACUTE-ANGLES (0 3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 65 66 69 72 75 78 81 84 87 90))
(DD ALLOY-STEEL (LOW-ALLOY-STEEL HIGH-ALLOY-STEEL))
(DD CAST (GG GGG))
(DD STEEL (BUILDING-STEEL ALLOY-STEEL STAINLESS-STEEL))
(DD WP-MATERIALS (STEEL CAST ALU))
(DD QUALITIES (NORMAL CRITICAL))
(DD PROCESSES (ROUGHING FINISHING))
(DD PD (TMAXP-PDL93 TMAXP-PDR93))
(DD PR (TMAXP-PRL30 TMAXP-PRL40 TMAXP-PRR30))
(DD PC (TMAXP-PCL95 TMAXP-PCL75 TMAXP-PCN65 TMAXP-PCR95 TMAXP-PCR75 TMAXP-PCR65))
(DD PS (TMAXP-PSL75 TMAXP-PSL45 TMAXP-PSN45 TMAXP-PSR75 TMAXP-PSR45))
(DD PT (TMAXP-PTL90 TMAXP-PTL80 TMAXP-PTL45 TMAXP-PTN60 TMAXP-PTR90 TMAXP-PTR80 TMAXP-PTR45))
(DD TMAX-P (PT PS PC PR PD))
(DD HOLDERS (TMAX-P TMAX-U))
(DD MM52 (TCMM-52 DCMM-52 SCMM-52 CCMM-52 RCMM-52))
(DD NMG (RNMG TNMG SNMG DNMG CNMG))
(DD NMA (TNMA DNMA SNMA CNMA))
(DD MM41 (TNMM-41 SNMM-41 DNMM-41 CNMM-41))
(DD MM71 (DNMM-71 TNMM-71 SNMM-71 CNMM-71))
(DD UNIVERSAL-TOOLS (NMG MM52 RCMX))
(DD FINISHING-TOOLS (UNIVERSAL-TOOLS MM53 CMA))
(DD ROUGHTURN-TOOLS (UNIVERSAL-TOOLS MM71 NMA MM41))
(DD LATHE-TOOLS (FINISHING-TOOLS ROUGHTURN-TOOLS))(ft (sub-lts-from-left _1 _2 _3 _4)
    (is _5 `(cns _rad-max nil))
    (is _1 `(cns rad-max _5))
    (is _6 `(cns _rad-limit nil))
    (is _2 `(cns rad-limit _6))
    (is _7 `(cns _l nil))
    (is _3 `(cns leftmost _7))
    (is _8 `(cns _tc nil))
    (is _4 `(cns rightmost _8))
    (neighbor _next-tc _tc)
    (is _12 `(cns _zl nil))
    (is _10 `(cns center1 _12))
    (is _15 `(cns _zr nil))
    (is _13 `(cns center2 _15))
    (is _18 `(cns _rada nil))
    (is _16 `(cns radius1 _18))
    (is _20 `(cns _radb nil))
    (is _19 `(cns radius2 _20))
    (is _17 `(cns _19 nil))
    (is _14 `(cns _16 _17))
    (is _11 `(cns _13 _14))
    (is _9 `(cns _10 _11))
    (truncone _next-tc _9)
    (< _rada _rad-limit)
    (is _new-max (max _rad-max _rada))
    (is _25 `(cns _new-max nil))
    (is _21 `(cns rad-max _25))
    (is _26 `(cns _rad-limit nil))
    (is _22 `(cns rad-limit _26))
    (is _27 `(cns _l nil))
    (is _23 `(cns leftmost _27))
    (is _28 `(cns _next-tc nil))
    (is _24 `(cns rightmost _28^CA keyboard interrupt was seen but response will be deferred
))
    (sub-lts-from-left 
>>Break: Keyboard interrupt

SYSTEM:CHECK-DEFERRED-INTERRUPTS:
:C  0: Return from Break
:A  1: Abort to Lisp Top Level

-> 1
Abort to Lisp Top Level
Back to Lisp Top Level

> (colab)
colab,tx,fwe,cn> ^Z
Suspended
ctec@arctecserv-2: vi skeletal.rf 

7[?47h[24;1H[?1h="skeletal.rf" 650/15266 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		Skeletal Plans		;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#|

Input: classified workpieces
----------------------------


class-wp ::= (cwp <globals> <feature-list>)

globals ::= "set of global annotations; momentarily the max radius;[19;14Hshould additionally contain the material and the[20;14Hsurface quality"

feature-list ::= (tup { <nested-feature> }* )[H[23B"skeletal.rf" 650/15266[H[23B[K/cn 
[H[2J  (rf-print contax\ tool\ selection\:)[H
  (rf-print \ \ arguments\:\ )
  (rf-princ _process) (rf-princ \ )
  (rf-princ _wp-material) (rf-princ \ )
  (rf-princ _quality) (rf-princ \ )
  (rf-princ _alpha) (rf-princ \ )
  (rf-princ _beta) (rf-princ \ )
  (rf-princ _direction)
  (rf-terpri)
  (rf-print \ \ propagating...)
  (cn reconsult "tools.ctx")
  (is _tools (get-cn-tools
		(cn global hard
		  ; (tup quality _quality)
		  (tup wp-material _wp-material)
		  (tup process _process)
		  (tup alpha _alpha)
		  (tup beta _beta)
		  (tup direction _direction)
		  (tup tool lathe-tools)
		  (tup holder holders)
		  (tup plate plate-geometries)
		  (tup edge-angle edge-angles)[11;4H

		
	  










[A(tup tc-edge-angle tc-edge-angles))
		  

[23;15Htool holder))
		


[A  (rf-terpri)
  

[A(rf-princ \ \ results\:\ )
  
[J[?1l>[2J[?47l8ctec@arctecserv-2: vi start.bat

7[?47h[24;1H[?1h="start.bat" 34/486 [H[2Jtaxon[H
contax
forward
colab
destroy
taxon
consult micro2.tx
switch reduced-abox t
filter
switch filtered-graph t
forward
automatic
consult wp-mcad2nc.rf
consult tx-parts-emul.rf
replace-strategies  tx-additions.rf
compile-strategies
fw-compile
contax
consult tools.ctx
consult constdef.lisp
rfe
consult library
consult class-feat[H[23B"start.bat" 34/486[H[23B[K
[Aconsult rng2p


[Aconsult feat2p


[Aconsult skeletal


[Aconsult anc-program


[Aconsult demo


[Aconsult examples


[Acompile


[A(init-tool-sel)


[Aforward


[Afw-emul


[Arf-query (show-demo)[H[11B[11B
[J[?1l>[2J[?47l8ctec@arctecserv-2: grep show=dem[K[K[K[K-demo *

demo.rf:(ft (show-demo)
demotxfw.rf:(hn (show-demo)
start.bat:rf-query (show-demo)
ctec@arctecserv-2: vi demo.rf

7[?47h[24;1H[?1h="demo.rf" 118/3177 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		  Demo			;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(ft (show _headline _x)
  (rf-terpri)
  (rf-print _headline)
  (rf-terpri)
  (rf-terpri)
  (rf-pprint _x)
  (rf-terpri)
  (rf-terpri)
  _x)


(ft (headline _headline _x)
  (rf-terpri)
  (rf-print _headline)[H[23B"demo.rf" 118/3177[H[23B[K/show-demo
[H[2J[1;52H(tup radius2 _radb)))[2;28H_c)))))


(ft (demo/r) ; pure relfun + contax demo
  (cwp2anc (rng2cwp (exa))))

(ft (demo/f) ; forward + taxon + relfun + contax demo
  (cwp2anc (tec2cwp)))

(ft (show-demo)
    (init-retain-stack)
    (is _x1 (bf-all `(data truncone _a (tup (tup center1 _zl)[14;45H(tup center2 _zr)[15;45H(tup radius1 _rada)[16;45H(tup radius2 _radb)))[17;21H`(data _x _y _z)))
    (break-demo)
    (is _x2 (show classified\ workpiece\:
		  (feat2p (headline constructing\ classified\ workpiece\ ...[21;27H_x1))))
    (break-demo)
    (is _x3 (show skeletal\ plan\: (skeletal-plan _x2)))[11;6H

[14;45H

[17;21H
    

		  
	  
    


[A(break-demo)
    

[A(is _x4 (gen-anc-plan (headline qualitative\ simulation\: _x3)))
    

[A(break-demo)
    

[A(headline anc-program\: _x4))
    


[A

[A

[A

[A; example

[A; -------

[A

[A

[A#|

[A

[A|			D  E
[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A	[A[A[HM[1;45H(tup center2 _zr)[24;1H[K[H	[HM    (is _x1 (bf-all `(data truncone _a (tup (tup center1 _zl)[HM    (init-retain-stack)[24;1H[K[HM(ft (show-demo)[HMM  (cwp2anc (tec2cwp)))[24;1H[K[HM(ft (demo/f) ; forward + taxon + relfun + contax demo[24;1H[K[H[23B[J[?1l>[2J[?47l8ctec@arctecserv-2: grep init-tool *p

ctec@arctecserv-2: grep init-tool *p[K

skeletal.rf:(hn (init-tool-sel)
start.bat:(init-tool-sel)
ctec@arctecserv-2: vi skeletal.rf 

7[?47h[24;1H[?1h="skeletal.rf" 650/15266 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		Skeletal Plans		;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#|

Input: classified workpieces
----------------------------


class-wp ::= (cwp <globals> <feature-list>)

globals ::= "set of global annotations; momentarily the max radius;[19;14Hshould additionally contain the material and the[20;14Hsurface quality"

feature-list ::= (tup { <nested-feature> }* )[H[23B"skeletal.rf" 650/15266[H[23B[K/init-tool
[H[2J  (rf-terpri)[H
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))
  (cn cv beta hrcl (tup acute-angles))
  (cn cv direction hrcl (tup directions))[11;6H

  
	
  









[A(cn cv plate hrcl (tup plate-geometries))
  

[A(cn cv edge-angle hrcl (tup edge-angles))
  

[A(cn cv tc-edge-angle hrcl (tup tc-edge-angles))
  


[A

[A  (rf-print \ \ creating\ constraint\ instances...)
  

[A(cn ci inst-ho-to hard holder-tool holder tool)
  

[A(cn ci inst-pr-ho hard process-holder process holder)
  

[A(cn ci inst-ho-de1 hard holder-desc1 holder direction)
  

[A(cn ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle)
  

[A(cn ci inst-ho-de3 hard holder-desc3 holder plate)
  

[A(cn ci inst-pr-ma-to hard process-material-tool
  

[A	 process wp-material tool)
	 


[A  (cn ci inst-pl-ea hard plate-eangle plate
  

[A	 edge-angle)
	 


[A  (cn ci inst-pr-ea hard process-eangle process edge-angle)
  

[A; (cn ci inst-tc-ea-al hard tc-ea-al tc-edge-angle
  

[23;12H; edge-angle alpha)
	   


[A  (cn ci inst-tc-beta hard tc-beta tc-edge-angle beta)
  


[A

[A  (rf-print \ \ initializing\ HAC\ datastructures...)
  

[A(cn hacinit)
  

[A(rf-print ok.)
  

[A(rf-terpri))
  


[A

[A 

[A

[A; append-coord

[A; ------------

[A

[A(ft (append-coord (tup) _f)

[A  _f)


[A(ft (append-coord _f (tup))

[A  _f)


[A(ft (append-coord (tup (p _z _r)) (tup (p _z _r) | _rest))

[A  `(tup (p _z _r) | _rest))
  


[A(ft (append-coord (tup _h | _t) _r)

[A  (tup _h | (append-coord _t _r)))
  


[A

[A

[A; reverse-coord
[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[A[HM	   ; edge-angle alpha)[24;1H[K[HM  ; (cn ci inst-tc-ea-al hard tc-ea-al tc-edge-angle[HM  (cn ci inst-pr-ea hard process-eangle process edge-angle)[HM	 edge-angle)[24;1H[K[HM  (cn ci inst-pl-ea hard plate-eangle plate[24;1H[K[HM	 process wp-material tool)[24;1H[K[HM  (cn ci inst-pr-ma-to hard process-material-tool[24;1H[K[HM  (cn ci inst-ho-de3 hard holder-desc3 holder plate)[24;1H[K[HM  (cn ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle)[24;1H[K[HM  (cn ci inst-ho-de1 hard holder-desc1 holder direction)[24;1H[K[HM  (cn ci inst-pr-ho hard process-holder process holder)[24;1H[K[HM  (cn ci inst-ho-to hard holder-tool holder tool)[HM  (rf-print \ \ creating\ constraint\ instances...)[24;1H[K[HM[23B[K[HM  (cn cv tc-edge-angle hrcl (tup tc-edge-angles))[HM  (cn cv edge-angle hrcl (tup edge-angles))[HM  (cn cv plate hrcl (tup plate-geometries))[HM  (cn cv direction hrcl (tup directions))[24;1H[K[HM  (cn cv beta hrcl (tup acute-angles))[24;1H[K[HM  (cn cv alpha hrcl (tup acute-angles))[24;1H[K[HM  (cn cv holder hrcl (tup holders))[24;1H[K[HM  (cn cv tool hrcl (tup lathe-tools))[HM  (cn cv process hrcl (tup processes))[24;1H[K[HM  (cn cv wp-material hrcl (tup wp-materials))[24;1H[K[HM  ; (cn cv quality hrcl (tup qualities))[24;1H[K[HM  (rf-print \ \ creating\ constraint\ variables...)[24;1H[K[HM[23B[K[H	[HM  (rf-print contax\ initialization\:)[24;1H[K[HM[23B[K[HM(hn (init-tool-sel)[24;1H[K[HM[23B[K[HM; must be run prior to calling (skeletal-plan ...)[24;1H[K[H




	


















[A  (cn ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle)

[A  (cn ci inst-ho-de3 hard holder-desc3 holder plate)

[A  (cn ci inst-pr-ma-to hard process-material-tool

[A	 process wp-material tool)

[A  (cn ci inst-pl-ea hard plate-eangle plate

[A	 edge-angle)

[A  (cn ci inst-pr-ea hard process-eangle process edge-angle)

[A  ; (cn ci inst-tc-ea-al hard tc-ea-al tc-edge-angle

[23;12H; edge-angle alpha)

[A  (cn ci inst-tc-beta hard tc-beta tc-edge-angle beta)

[A

[A  (rf-print \ \ initializing\ HAC\ datastructures...)

[A  (cn hacinit)

[A  (rf-print ok.)
:q!
[J[?1l>[2J[?47l8ctec@arctecserv-2: vi skeletal.rf

7[?47h[24;1H[?1h="skeletal.rf" 650/15266 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		Skeletal Plans		;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#|

Input: classified workpieces
----------------------------


class-wp ::= (cwp <globals> <feature-list>)

globals ::= "set of global annotations; momentarily the max radius;[19;14Hshould additionally contain the material and the[20;14Hsurface quality"

feature-list ::= (tup { <nested-feature> }* )[H[23B"skeletal.rf" 650/15266[H[23B[K/cn 
[H[2J  (rf-print contax\ tool\ selection\:)[H
  (rf-print \ \ arguments\:\ )
  (rf-princ _process) (rf-princ \ )
  (rf-princ _wp-material) (rf-princ \ )
  (rf-princ _quality) (rf-princ \ )
  (rf-princ _alpha) (rf-princ \ )
  (rf-princ _beta) (rf-princ \ )
  (rf-princ _direction)
  (rf-terpri)
  (rf-print \ \ propagating...)
  (cn reconsult "tools.ctx")
  (is _tools (get-cn-tools
		(cn global hard
		  ; (tup quality _quality)
		  (tup wp-material _wp-material)
		  (tup process _process)
		  (tup alpha _alpha)
		  (tup beta _beta)
		  (tup direction _direction)
		  (tup tool lathe-tools)
		  (tup holder holders)
		  (tup plate plate-geometries)
		  (tup edge-angle edge-angles)[11;4H[A[A[A[A[A[A[A[A[A[A[HM[23B[K[HM		_tools)[24;1H[K[H	[HM(hn (tool-sel _process _wp-material _quality _alpha _beta _direction[24;1H[K[H(hn[HM[23B[K[HM; CONTAX tool selection:[24;1H[K[H; C[HM[23B[K[HM[23B[K[HM; place precomputed tool selections here ...[24;1H[K[H; p[HM[23B[K[HM;	    (tup { (tup <plate> <holder>) }+ ))[24;1H[K[H;  [HM; (tool-sel <process> <wp-material> <quality> <alpha> <beta> <way>[24;1H[K[H; ([HM; format:[24;1H[K[H; f[HM[23B[K[HM; -------------------------[24;1H[K[H; -[HM; tool-sel (tool selection)[24;1H[K[H; t[HM[23B[K[H[23B/init-tool
[H[2J  (rf-terpri)[H
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))
  (cn cv beta hrcl (tup acute-angles))
  (cn cv direction hrcl (tup directions))[11;6H

  
	
  









[A(cn cv plate hrcl (tup plate-geometries))
  

[A(cn cv edge-angle hrcl (tup edge-angles))
  

[A(cn cv tc-edge-angle hrcl (tup tc-edge-angles))
  


[A

[A  (rf-print \ \ creating\ constraint\ instances...)
  

[A(cn ci inst-ho-to hard holder-tool holder tool)
  

[A(cn ci inst-pr-ho hard process-holder process holder)
  

[A(cn ci inst-ho-de1 hard holder-desc1 holder direction)
  

[A(cn ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle)
  

[A(cn ci inst-ho-de3 hard holder-desc3 holder plate)
  

[A(cn ci inst-pr-ma-to hard process-material-tool
  

[A	 process wp-material tool)
	 


[A  (cn ci inst-pl-ea hard plate-eangle plate
  

[A	 edge-angle)
	 [A[A[A[A[A[A[A[A[A
[A[A	 [A[A[A[A[A[A[A[A[A[A[A[HM[23B[K[H	[HM  (rf-print contax\ initialization\:)[24;1H[K[H	i[HM[23B[K[HM(hn (init-tool-sel)[24;1H[K[H	t[HM[23B[K[H


  
	
  












  





[A(cn ci inst-ho-de3 hard holder-desc3 holder plate)
  

[A(cn ci inst-pr-ma-to hard process-material-tool
  

[A	 process wp-material tool)
	 


[A  (cn ci inst-pl-ea hard plate-eangle plate
  

[A	 edge-angle)
	 


[A  (cn ci inst-pr-ea hard process-eangle process edge-angle)
  

[A; (cn ci inst-tc-ea-al hard tc-ea-al tc-edge-angle
  

[23;12H; edge-angle alpha)
	   


[A  (cn ci inst-tc-beta hard tc-beta tc-edge-angle beta)
  


[A

[A  (rf-print \ \ initializing\ HAC\ datastructures...)
  

[A(cn hacinit)
  
/[H[2J  (rf-terpri)[H
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))
  (cn cv beta hrcl (tup acute-angles))
  (cn cv direction hrcl (tup directions))[11;6H
[13B/skelet
[H[2Jflank ::= (flk <coordinates>)[H

ground ::= (grd <coordinates>)

coordinates ::= (tup { <point> }* )

point ::= (p <num> <num>)  ; z-coordinate and radius



Output: skeletal plans
----------------------


skeletal-plan ::= (skp <globals> <sac-plan>)
		  ; sac = sequential/alternative/commutative

plan ::=   (tup)		; empty plan
	 | <action>		; atomar action
	 | (seq <plan-list>)	; sequential
	 | (com <plan-list>)	; commutative
	 | (alt <plan-list>)	; alternative[11;9H
[13B/[9A[9B[K/[H[2J
way ::= left | right ; means: working into this direction

geometry ::= (geo <coordinates>)


|#



; 1. create skeletal plan
; =======================

(ft (skeletal-plan (cwp _globals _features))
  (is _skp (skp/com _features))
  `(skp _globals _skp))


; skp/com
; -------

(ft (skp/com (tup))
  `(tup))[11;13H
[13B/[14;6H
[10B[K/[H[2J  (skp/lsh _flank _ground))[H

(ft (skp/feat (rsh (grd _ground) (flk _flank)))
  (skp/rsh _ground _flank))

(ft (skp/feat (grv (flk _flank1) (grd _ground) (flk _flank2)))
  (skp/grv _flank1 _ground _flank2))



; skeletal plans for unnested features
; ------------------------------------

; global constants for demo version:

(ft (wp-material) high-alloy-steel)

(ft (quality) normal)


; skp/lsh
; -------[11;3H
[13B?[H[2Jgeometry ::= (geo <coordinates>)[H


|#



; 1. create skeletal plan
; =======================

(ft (skeletal-plan (cwp _globals _features))
  (is _skp (skp/com _features))
  `(skp _globals _skp))


; skp/com
; -------

(ft (skp/com (tup))
  `(tup))

(ft (skp/com (tup _h | _t))
  (norm-com (skp/cfeat _h) (skp/com _t)))[11;6H
[13B/[H[2J  (skp/lsh _flank _ground))[H

(ft (skp/feat (rsh (grd _ground) (flk _flank)))
  (skp/rsh _ground _flank))

(ft (skp/feat (grv (flk _flank1) (grd _ground) (flk _flank2)))
  (skp/grv _flank1 _ground _flank2))



; skeletal plans for unnested features
; ------------------------------------

; global constants for demo version:

(ft (wp-material) high-alloy-steel)

(ft (quality) normal)


; skp/lsh
; -------[11;3H
[13B/[H[2J  (tool-sel roughing (wp-material) (quality)[2;13H_max2 _max1 left _tools2)
  (is _right-alt (check-alternatives (gen-roughing-alternatives[4;39H_tools1 right `(geo _fl-gr-fl))))
  (is _left-alt (check-alternatives (gen-roughing-alternatives[6;38H_tools2 left `(geo _fl-gr-fl))))
  (norm-alt (norm-seq _left-alt _right-alt)[8;13H(norm-seq _right-alt _left-alt)))


; additional skeletal plans ...



; tool-sel (tool selection)
; -------------------------

; format:
; (tool-sel <process> <wp-material> <quality> <alpha> <beta> <way>
;	    (tup { (tup <plate> <holder>) }+ ))

; place precomputed tool selections here ...[11;14H
[13B/[H[2J		  (tup tc-edge-angle tc-edge-angles))[2;15Htool holder))
  (rf-terpri)
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))[11;33H
[13B/[H[2Jflank ::= (flk <coordinates>)[H

ground ::= (grd <coordinates>)

coordinates ::= (tup { <point> }* )

point ::= (p <num> <num>)  ; z-coordinate and radius



Output: skeletal plans
----------------------


skeletal-plan ::= (skp <globals> <sac-plan>)
		  ; sac = sequential/alternative/commutative

plan ::=   (tup)		; empty plan
	 | <action>		; atomar action
	 | (seq <plan-list>)	; sequential
	 | (com <plan-list>)	; commutative
	 | (alt <plan-list>)	; alternative[11;9H
[13B/[9A[9B[K/[H[2J
way ::= left | right ; means: working into this direction

geometry ::= (geo <coordinates>)


|#



; 1. create skeletal plan
; =======================

(ft (skeletal-plan (cwp _globals _features))
  (is _skp (skp/com _features))
  `(skp _globals _skp))


; skp/com
; -------

(ft (skp/com (tup))
  `(tup))[11;13H
[13B/[14;6H
[10B[K/[H[2J  (skp/lsh _flank _ground))[H

(ft (skp/feat (rsh (grd _ground) (flk _flank)))
  (skp/rsh _ground _flank))

(ft (skp/feat (grv (flk _flank1) (grd _ground) (flk _flank2)))
  (skp/grv _flank1 _ground _flank2))



; skeletal plans for unnested features
; ------------------------------------

; global constants for demo version:

(ft (wp-material) high-alloy-steel)

(ft (quality) normal)


; skp/lsh
; -------[11;3H
[13B/[H[2J  (tool-sel roughing (wp-material) (quality)[2;13H_max2 _max1 left _tools2)
  (is _right-alt (check-alternatives (gen-roughing-alternatives[4;39H_tools1 right `(geo _fl-gr-fl))))
  (is _left-alt (check-alternatives (gen-roughing-alternatives[6;38H_tools2 left `(geo _fl-gr-fl))))
  (norm-alt (norm-seq _left-alt _right-alt)[8;13H(norm-seq _right-alt _left-alt)))


; additional skeletal plans ...



; tool-sel (tool selection)
; -------------------------

; format:
; (tool-sel <process> <wp-material> <quality> <alpha> <beta> <way>
;	    (tup { (tup <plate> <holder>) }+ ))

; place precomputed tool selections here ...[11;14H
[13B/[H[2J		  (tup tc-edge-angle tc-edge-angles))[2;15Htool holder))
  (rf-terpri)
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))[11;33H
[13B/[H[2Jflank ::= (flk <coordinates>)[H

ground ::= (grd <coordinates>)

coordinates ::= (tup { <point> }* )

point ::= (p <num> <num>)  ; z-coordinate and radius



Output: skeletal plans
----------------------


skeletal-plan ::= (skp <globals> <sac-plan>)
		  ; sac = sequential/alternative/commutative

plan ::=   (tup)		; empty plan
	 | <action>		; atomar action
	 | (seq <plan-list>)	; sequential
	 | (com <plan-list>)	; commutative
	 | (alt <plan-list>)	; alternative[11;9H
[13B/[9A[9B[K/[H[2J
way ::= left | right ; means: working into this direction

geometry ::= (geo <coordinates>)


|#



; 1. create skeletal plan
; =======================

(ft (skeletal-plan (cwp _globals _features))
  (is _skp (skp/com _features))
  `(skp _globals _skp))


; skp/com
; -------

(ft (skp/com (tup))
  `(tup))[11;13H
[13B/skp\/com
[15;13H
[9B[K/[5A; 



  
[K
[A

[A(ft (skp/com (tup _h | _t))

[A  (norm-com (skp/cfeat _h) (skp/com _t)))
  


[A

[A

[A; skp/cfeat (complex features like nft = nested feature)

[A; ------------------------------------------------------

[A

[A(ft (skp/cfeat (nft _feat _refined-feat))

[A  (norm-seq (skp/feat _feat) (skp/com _refined-feat)))
  


[A

[A; additional complex/nested features ...

[A

[A

[A; skp/feat (for unnested features like lsh, rsh, grv)

[A; ---------------------------------------------------

[A

[A(ft (skp/feat (lsh (flk _flank) (grd _ground)))

[A  (skp/lsh _flank _ground))
  


[A

[A(ft (skp/feat (rsh (grd _ground) (flk _flank)))

[A  (skp/rsh _ground _flank))
  


[A

[A(ft (skp/feat (grv (flk _flank1) (grd _ground) (flk _flank2)))

[A  (skp/grv _flank1 _ground _flank2))
  


[A

[A

[A

[A; skeletal plans for unnested features

[A; ------------------------------------

[A

[A; global constants for demo version:

[A

[A(ft (wp-material) high-alloy-steel)

[A

[A(ft (quality) normal)

[A

[A

[A; skp/lsh

[A; -------

[A

[A(ft (skp/lsh _flank _ground)

[A  (is _fl-gr (append-coord _flank _ground))
  

[A(tool-sel roughing (wp-material) (quality)
  

[23;13H0 (rf-max (compute-flank-angles _flank))
	    

[Aleft _tools)
	    


[A  (check-alternatives
  

[A (gen-roughing-alternatives _tools left `(geo _fl-gr))))
   


[A

[A

[A; skp/rsh

[A; -------

[A

[A(ft (skp/rsh _ground _flank)

[A  (is _gr-fl (append-coord _ground _flank))
  

[A(tool-sel roughing (wp-material) (quality)
  

[23;13H0 (rf-max (compute-flank-angles (reverse-coord _flank)))
	    

[Aright

[A_tools)
	    


[A  (check-alternatives
  

[A (gen-roughing-alternatives _tools right `(geo _gr-fl))))
   


[A

[A

[A; skp/grv

[A; -------

[A

[A(ft (skp/grv _flank1 _ground _flank2)
/skel
[H[2J  (tool-sel roughing (wp-material) (quality)[2;13H_max2 _max1 left _tools2)
  (is _right-alt (check-alternatives (gen-roughing-alternatives[4;39H_tools1 right `(geo _fl-gr-fl))))
  (is _left-alt (check-alternatives (gen-roughing-alternatives[6;38H_tools2 left `(geo _fl-gr-fl))))
  (norm-alt (norm-seq _left-alt _right-alt)[8;13H(norm-seq _right-alt _left-alt)))


; additional skeletal plans ...



; tool-sel (tool selection)
; -------------------------

; format:
; (tool-sel <process> <wp-material> <quality> <alpha> <beta> <way>
;	    (tup { (tup <plate> <holder>) }+ ))

; place precomputed tool selections here ...[11;14H
[13B/[H[2J		  (tup tc-edge-angle tc-edge-angles))[2;15Htool holder))
  (rf-terpri)
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))[11;33H
[13B/[H[2Jflank ::= (flk <coordinates>)[H

ground ::= (grd <coordinates>)

coordinates ::= (tup { <point> }* )

point ::= (p <num> <num>)  ; z-coordinate and radius



Output: skeletal plans
----------------------


skeletal-plan ::= (skp <globals> <sac-plan>)
		  ; sac = sequential/alternative/commutative

plan ::=   (tup)		; empty plan
	 | <action>		; atomar action
	 | (seq <plan-list>)	; sequential
	 | (com <plan-list>)	; commutative
	 | (alt <plan-list>)	; alternative[11;9H
[13B/[9A[9B[K/[H[2J
way ::= left | right ; means: working into this direction

geometry ::= (geo <coordinates>)


|#



; 1. create skeletal plan
; =======================

(ft (skeletal-plan (cwp _globals _features))
  (is _skp (skp/com _features))
  `(skp _globals _skp))


; skp/com
; -------

(ft (skp/com (tup))
  `(tup))[11;13H
[13B/[14;6H
[10B[K/[H[2J  (skp/lsh _flank _ground))[H

(ft (skp/feat (rsh (grd _ground) (flk _flank)))
  (skp/rsh _ground _flank))

(ft (skp/feat (grv (flk _flank1) (grd _ground) (flk _flank2)))
  (skp/grv _flank1 _ground _flank2))



; skeletal plans for unnested features
; ------------------------------------

; global constants for demo version:

(ft (wp-material) high-alloy-steel)

(ft (quality) normal)


; skp/lsh
; -------[11;3H
[13B/[H[2J  (tool-sel roughing (wp-material) (quality)[2;13H_max2 _max1 left _tools2)
  (is _right-alt (check-alternatives (gen-roughing-alternatives[4;39H_tools1 right `(geo _fl-gr-fl))))
  (is _left-alt (check-alternatives (gen-roughing-alternatives[6;38H_tools2 left `(geo _fl-gr-fl))))
  (norm-alt (norm-seq _left-alt _right-alt)[8;13H(norm-seq _right-alt _left-alt)))


; additional skeletal plans ...



; tool-sel (tool selection)
; -------------------------

; format:
; (tool-sel <process> <wp-material> <quality> <alpha> <beta> <way>
;	    (tup { (tup <plate> <holder>) }+ ))

; place precomputed tool selections here ...[11;14H
[13B/tool-sele
[K[7mFail[m[11;14H
[13B[K/tool-se
[9A; 
[9B[K/[19;4H




[K/[K
[A

[A; CONTAX tool selection:


[A

[A(hn (tool-sel _process _wp-material _quality _alpha _beta _direction
	
/[H[2J  (rf-terpri)[H
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))
  (cn cv beta hrcl (tup acute-angles))
  (cn cv direction hrcl (tup directions))[11;11H

  
	
  









[A(cn cv plate hrcl (tup plate-geometries))
  

[A(cn cv edge-angle hrcl (tup edge-angles))
  

[A(cn cv tc-edge-angle hrcl (tup tc-edge-angles))
  


[A

[A  (rf-print \ \ creating\ constraint\ instances...)
  

[A(cn ci inst-ho-to hard holder-tool holder tool)
  

[A(cn ci inst-pr-ho hard process-holder process holder)
  

[A(cn ci inst-ho-de1 hard holder-desc1 holder direction)
  

[A(cn ci inst-ho-de2 hard holder-desc2 holder tc-edge-angle)
  

[A(cn ci inst-ho-de3 hard holder-desc3 holder plate)
  

[A(cn ci inst-pr-ma-to hard process-material-tool
  

[A	 process wp-material tool)
	 


[A  (cn ci inst-pl-ea hard plate-eangle plate
  

[A	 edge-angle)
	 


[A  (cn ci inst-pr-ea hard process-eangle process edge-angle)
  

[A; (cn ci inst-tc-ea-al hard tc-ea-al tc-edge-angle
  

[23;12H; edge-angle alpha)
	   


[A  (cn ci inst-tc-beta hard tc-beta tc-edge-angle beta)
  


[A

[A  (rf-print \ \ initializing\ HAC\ datastructures...)
  

[A(cn hacinit)
  

[A(rf-print ok.)
  

[A(rf-terpri))
  


[A

[A 

[A

[A; append-coord

[A; ------------

[A

[A(ft (append-coord (tup) _f)

[A  _f)


[A(ft (append-coord _f (tup))

[A  _f)


[A(ft (append-coord (tup (p _z _r)) (tup (p _z _r) | _rest))
/cn 
[H[2J  (rf-print contax\ tool\ selection\:)[H
  (rf-print \ \ arguments\:\ )
  (rf-princ _process) (rf-princ \ )
  (rf-princ _wp-material) (rf-princ \ )
  (rf-princ _quality) (rf-princ \ )
  (rf-princ _alpha) (rf-princ \ )
  (rf-princ _beta) (rf-princ \ )
  (rf-princ _direction)
  (rf-terpri)
  (rf-print \ \ propagating...)
  (cn reconsult "tools.ctx")
  (is _tools (get-cn-tools
		(cn global hard
		  ; (tup quality _quality)
		  (tup wp-material _wp-material)
		  (tup process _process)
		  (tup alpha _alpha)
		  (tup beta _beta)
		  (tup direction _direction)
		  (tup tool lathe-tools)
		  (tup holder holders)
		  (tup plate plate-geometries)
		  (tup edge-angle edge-angles)[11;4H
[13B:q!
[J[?1l>[2J[?47l8ctec@arctecserv-2: vi start.lisp

7[?47h[24;1H[?1h="start.lisp" [New file] [H[2J
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~[H[23B"start.lisp" [New file][H[23B[K[J[?1l>[2J[?47l8ctec@arctecserv-2: vi start.bat	

7[?47h[24;1H[?1h="start.bat" 34/486 [H[2Jtaxon[H
contax
forward
colab
destroy
taxon
consult micro2.tx
switch reduced-abox t
filter
switch filtered-graph t
forward
automatic
consult wp-mcad2nc.rf
consult tx-parts-emul.rf
replace-strategies  tx-additions.rf
compile-strategies
fw-compile
contax
consult tools.ctx
consult constdef.lisp
rfe
consult library
consult class-feat[H[23B"start.bat" 34/486[H






















[K
[Aconsult rng2p

[Aconsult feat2p

[Aconsult skeletal

[Aconsult anc-program

[Aconsult demo

[Aconsult examples

[Acompile

[A(init-tool-sel)

[Aforward

[Afw-emul

[Arf-query (show-demo)
[J[?1l>[2J[?47l8ctec@arctecserv-2: vi skeletal.rf 

7[?47h[24;1H[?1h="skeletal.rf" 650/15266 [H[2J;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[H
;;;		microCAD2NC		;;;
;;;		RELFUN part		;;;
;;;		Skeletal Plans		;;;
;;; (c) Michael Sintek	September 1991 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



#|

Input: classified workpieces
----------------------------


class-wp ::= (cwp <globals> <feature-list>)

globals ::= "set of global annotations; momentarily the max radius;[19;14Hshould additionally contain the material and the[20;14Hsurface quality"

feature-list ::= (tup { <nested-feature> }* )[H[23B"skeletal.rf" 650/15266[H[23B[K/cn
[H[2J  (rf-print contax\ tool\ selection\:)[H
  (rf-print \ \ arguments\:\ )
  (rf-princ _process) (rf-princ \ )
  (rf-princ _wp-material) (rf-princ \ )
  (rf-princ _quality) (rf-princ \ )
  (rf-princ _alpha) (rf-princ \ )
  (rf-princ _beta) (rf-princ \ )
  (rf-princ _direction)
  (rf-terpri)
  (rf-print \ \ propagating...)
  (cn reconsult "tools.ctx")
  (is _tools (get-cn-tools
		(cn global hard
		  ; (tup quality _quality)
		  (tup wp-material _wp-material)
		  (tup process _process)
		  (tup alpha _alpha)
		  (tup beta _beta)
		  (tup direction _direction)
		  (tup tool lathe-tools)
		  (tup holder holders)
		  (tup plate plate-geometries)
		  (tup edge-angle edge-angles)[11;4H
[L[12B[K[12;3H[@([@i[@n[@i[@t[@-[@t[@o[@o[@l[@-[@s[@e[@l[@)
[12B/init-toolk
[K[7mFail[m[12;17H
[12B[K/init-to
[H[2J  (rf-terpri)[H
  (rf-princ \ \ results\:\ )
  (rf-princ _tools)
  (rf-print end.)
  (rf-terpri) (rf-terpri))


; init routine for tool selection via CONTAX
; must be run prior to calling (skeletal-plan ...)

(hn (init-tool-sel)

  (rf-print contax\ initialization\:)

  (rf-print \ \ creating\ constraint\ variables...)
  ; (cn cv quality hrcl (tup qualities))
  (cn cv wp-material hrcl (tup wp-materials))
  (cn cv process hrcl (tup processes))
  (cn cv tool hrcl (tup lathe-tools))
  (cn cv holder hrcl (tup holders))
  (cn cv alpha hrcl (tup acute-angles))
  (cn cv beta hrcl (tup acute-angles))
  (cn cv direction hrcl (tup directions))[11;6H
[13B/[H[2J  (rf-print \ \ arguments\:\ )[H
  (rf-princ _process) (rf-princ \ )
  (rf-princ _wp-material) (rf-princ \ )
  (rf-princ _quality) (rf-princ \ )
  (rf-princ _alpha) (rf-princ \ )
  (rf-princ _beta) (rf-princ \ )
  (rf-princ _direction)
  (rf-terpri)
  (rf-print \ \ propagating...)
  (cn reconsult "tools.ctx")
  (init-tool-sel)
  (is _tools (get-cn-tools
		(cn global hard
		  ; (tup quality _quality)
		  (tup wp-material _wp-material)
		  (tup process _process)
		  (tup alpha _alpha)
		  (tup beta _beta)
		  (tup direction _direction)
		  (tup tool lathe-tools)
		  (tup holder holders)
		  (tup plate plate-geometries)
		  (tup edge-angle edge-angles)[11;4H
[13B"skeletal.rf" 651/15284 

[J[?1l>[2J[?47l8ctec@arctecserv-2: fg

/usr/local/lucid/lisp-4-1-clos
(quit)
colab: invalid user command ((QUIT))
colab,tx,fwe,cn> lisp qu       ^Z
Suspended
ctec@arctecserv-2: vi skeletal.rf [K[K[K[K[K[K[K[K[K[K[Kstart.bat	

7[?47h[24;1H[?1h="start.bat" 34/486 [H[2Jtaxon[H
contax
forward
colab
destroy
taxon
consult micro2.tx
switch reduced-abox t
filter
switch filtered-graph t
forward
automatic
consult wp-mcad2nc.rf
consult tx-parts-emul.rf
replace-strategies  tx-additions.rf
compile-strategies
fw-compile
contax
consult tools.ctx
consult constdef.lisp
rfe
consult library
consult class-feat[H[23B"start.bat" 34/486[H[H[2Jconsult rng2p[H
consult feat2p
consult skeletal
consult anc-program
consult demo
consult examples
compile
(init-tool-sel)
forward
fw-emul
rf-query (show-demo)
~
~
~
~
~
~
~
~
~
~
~
~[11;1H[A[A[A[A[A[A[A[A[A[HMconsult class-feat[24;1H[K[HMconsult library[24;1H[K[HMrfe[24;1H[K[HMconsult constdef.lisp[24;1H[K[H













[9B[J[?1l>[2J[?47l8ctec@arctecserv-2: fg

/usr/local/lucid/lisp-4-1-clos

colab,tx,fwe,cn> lisp (quit)
Eval expression
ctec@arctecserv-2: l[Kfgvi start.bat
		2: fg[Kvi skeletal.rf
		2: vi start.bat[Klispkeletal.rf
		2: grep init-tool *p
		2: vi demo.rf[K
		2: grep show-demo *
		2: vi start.bat[Kkeletal.rf
		2: /usr/local/lucid/lisp-4-1-clos
		2: lucid[K/usr/local/lucid/lisp-4-1-clos

;;; Warning: ADDRESS-UNITS-PER-WORD is not a multiple of the system page siz: 8192 bytes
;;; Lucid Common Lisp/SPARC
;;; Development Environment Version 4.1 Beta DBCS, 9 June 1992
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid and Lucid Common Lisp are trademarks of Lucid, Inc.  Other brand
;;; or product names are trademarks or registered trademarks of their
;;; respective holders.
;;;
;;; This is a preliminary version to be used for testing purposes only.

> (load ..  "../../../my-colab-startup")
>>Error: Cannot find source or binary file matching "../../../my-colab-startup"

LOAD:
   Required arg 0 (FILENAME-OR-STREAM): "../../../my-colab-startup"
   Keyword arg 1 (VERBOSE): T
   Keyword arg 2 (PRINT): NIL
   Keyword arg 3 (IF-SOURCE-NEWER): :QUERY
   Keyword arg 4 (IF-SOURCE-ONLY): :LOAD-SOURCE
   Keyword arg 5 (IGNORE-BINARY-DEPENDENCIES): NIL
   Keyword arg 6 (IF-DOES-NOT-EXIST): :ERROR
:C  0: Try a new filename
    1: Try loading "../../../my-colab-startup" again
:A  2: Abort to Lisp Top Level

-> 1
Try loading "../../../my-colab-startup" again
>>Error: Cannot find source or binary file matching "../../../my-colab-startup"

LOAD:
   Required arg 0 (FILENAME-OR-STREAM): "../../../my-colab-startup"
   Keyword arg 1 (VERBOSE): T
   Keyword arg 2 (PRINT): NIL
   Keyword arg 3 (IF-SOURCE-NEWER): :QUERY
   Keyword arg 4 (IF-SOURCE-ONLY): :LOAD-SOURCE
   Keyword arg 5 (IGNORE-BINARY-DEPENDENCIES): NIL
   Keyword arg 6 (IF-DOES-NOT-EXIST): :ERROR
:C  0: Try a new filename
    1: Try loading "../../../my-colab-startup" again
:A  2: Abort to Lisp Top Level

-> 2
Abort to Lisp Top Level
Back to Lisp Top Level

> (loa  d "../../../my-coalb-ii no it")( 
>>Error: Cannot find source or binary file matching "../../../my-coalb-init"

LOAD:
   Required arg 0 (FILENAME-OR-STREAM): "../../../my-coalb-init"
   Keyword arg 1 (VERBOSE): T
   Keyword arg 2 (PRINT): NIL
   Keyword arg 3 (IF-SOURCE-NEWER): :QUERY
   Keyword arg 4 (IF-SOURCE-ONLY): :LOAD-SOURCE
   Keyword arg 5 (IGNORE-BINARY-DEPENDENCIES): NIL
   Keyword arg 6 (IF-DOES-NOT-EXIST): :ERROR
:C  0: Try a new filename
    1: Try loading "../../../my-coalb-init" again
:A  2: Abort to Lisp Top Level

-> 
2
Abort to Lisp Top Level
Back to Lisp Top Level

> (load "../../../my-colab-init) ")
;;; Loading source file "../../../my-colab-init.lisp"
;;; Warning: File "../../../my-colab-init.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: File "/home/ctec/colab1/top/start-colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
loading start-colab
;;; Loading source file "/home/ctec/colab1/top/our-fs.lisp"
;;; Warning: File "/home/ctec/colab1/top/our-fs.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

"loading pathname abstraction our-fs" 
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/col-keys.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/col-keys.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/col-init-tx.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/col-init-tx.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/defsystem.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tx-signatur.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tx-signatur.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tax-specific.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/defsystem.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/RFM-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/RFM-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/taxon-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/taxon-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/forward-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/forward-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/contax/contax-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/contax/contax-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading system RELFUN-AUX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/aux/aux.sbin"
;;; done loading system RELFUN-AUX
;;; Loading system RELFUN-RFI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.sbin"
;;; Warning: Redefining Function MORE-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "prelude.rf" ..
RFI - 4 December 1992
   - functions improved:
      - readl
      - consult/replace
      - lconsult/lreplace
      - batch-command
      - script-command
      - listclass
      - transform-query-for-emulator
      - footen-command
   - new functions:
      - footer
      - showdepth-command
   - pretty-print-functions moved to *lisp-extras*
   - *rfi-readtable* is modified instead of lisp *readtable*
   - spy/nospy also affects compiler/emulator
   - consult/replace works for files with multiple setq or with untagged clauses
   - lconsult/lreplace works also with untagged clauses or expanded macros
   - bar is legalized
   - query for emulator is transformed to special footed-procedure 'main'
   - footer: change radically hn- to ft-clauses
   - showdepth: length spy-trace is displayed with stars
   - PLEASE NOTE: It's enough to say compile (does horizon & verti)
   - call for meta-calls is generalized and renamed to ecal (eval+call)
   - spy shows backquotes of structures bound to variables etc.
   - horizon/compile: flatter, normalize, footen; mode-interpreter interface
   - once, naf, toplevel renamed to relfun, interface function rf
   - initial cut generalized to single cut: (hn (foo _x) ... ! ...)
   - bagof-like tupof: (tupof (likes john _x) `(ok _x)) RETURNS tup of (ok _x)
   - access function rf complies to COLAB specification
   - command deanon for databases and automatic deanonymization of requests
   - COLAB partners fw, cn, tx are NOW ACCESSIBLE AS LISP ***FUNCTIONS***
   - error handling improved and rf-pprint also returns its arg
   - command relationalize (flatten + extrarg) puts return into FIRST arg
   - command singlify transforms multi-footed clauses to single-footed ones
   - commands builtins changed, version introduced
   - flatter now treats complex is lhs
   - database is LIST of lists, or-process has db-left/db-right args, prelude
   - cns is interpreted as LISP cons, normalize command, rf-terpri returns t
   - (foot-)sole cut returns proper value: (ft (foo _x) ... v !) => v'
   - PROLOG-style syntax can be loaded; static-flattener uses mk-inst
   - relfun made recursive for interaction breaks in batch; lisp renamed bye
   - exec made recursive for recursive batch files (cf. recursive includes)
   - value-returning clause primitive (clause `(tag head | body))
   - integrated: PROLOG-style syntax and new horizontals (uncomma ...)
   - date/time-returning date builtin (date); rfi-predicates -> operators
   - report errors to boley@informatik.uni-kl.de
   - start by typing (relfun)

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.sbin"
;;; Warning: Redefining Function PP-INIT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-EXPR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-FINISH which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HANDLE-RFI-CMD which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PRO-COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function READ-FROM-TERMINAL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function RFI-COMMAND which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system RELFUN-RFI
;;; Loading system RELFUN-CODEGENERATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.sbin"
Codegenerator 0.53, 19.Sep.90
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.sbin"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Variable *LISP-FUNCTIONS* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *NEXT-CHUNKREG* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; done loading system RELFUN-CODEGENERATOR
;;; Loading system RELFUN-NORMALIZER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.sbin"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/debug.sbin"
;;; done loading system RELFUN-NORMALIZER
;;; Loading system RELFUN-MODE-INTERPRETER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.sbin"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-rfi-interface.sbin"
;;; done loading system RELFUN-MODE-INTERPRETER
;;; Loading system RELFUN-EMULATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.sbin"
NyWam --- Version 0.23g --- 14 Feb 92
;;; Warning: Redefining Variable *EMU-DEBUG* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNTYPE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNMACRO which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNOR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNLAMBDA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HOTRANS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNCOMMA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"

;;; done loading system RELFUN-EMULATOR
;;; Loading system RELFUN-CLASSIFIER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.sbin"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.sbin"

Klassifizierer V 1.0 . Letzte Aenderung: 06. 10. 1990
;;; done loading system RELFUN-CLASSIFIER
;;; Loading system RELFUN-INDEX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.sbin"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.sbin"
(;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.sbin"
c;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.sbin"
o;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/linear.sbin"
l;;; done loading system RELFUN-INDEX
;;; Loading system RELFUN
;;; done loading system RELFUN
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
a;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/colab-interface.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/colab-interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLAB-RELFUN-HORIZON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-VERTI which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-COMPILE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RFI-CMD-COMPILE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
b;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF-1 which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COL-PROMPT-PRINT which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/demo-break.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/demo-break.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
#P"/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/../../../my-colab-init.lisp"
> )
colab> exec satr   tart
Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
Try to load; please wait a moment.
;;; Loading system TAXON-FRONT-END
;;; Loading binary file "ibin/geto.sbin"
;;; Loading binary file "ibin/tx-signatur.sbin"
;;; Loading binary file "ibin/graph.sbin"
;;; Loading binary file "ibin/classify.sbin"
;;; Loading binary file "ibin/psgraph.sbin"
;;; Loading binary file "ibin/draw-hierarchy.sbin"
;;; Loading binary file "ibin/draw-on-boards.sbin"
;;; Loading binary file "ibin/draw-objects-on-boards.sbin"
;;; Loading binary file "ibin/abox-manager.sbin"
;;; Loading binary file "ibin/tbox-manager.sbin"
;;; Loading binary file "ibin/absynt.sbin"
;;; Loading binary file "ibin/define.sbin"
;;; Loading binary file "ibin/sprims.sbin"
;;; Loading binary file "ibin/push-not.sbin"
;;; Loading binary file "ibin/assertion.sbin"
;;; Loading binary file "ibin/ro-predicates.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/exp-asse.sbin"
;;; Loading binary file "ibin/subsumption.sbin"
;;; Loading binary file "ibin/filter-graph.sbin"
;;; Loading binary file "ibin/a-reasoning.sbin"
;;; Loading binary file "ibin/cmds.sbin"
;;; Loading binary file "ibin/listing.sbin"
;;; Loading binary file "ibin/ind-reasoning.sbin"
;;; Loading binary file "ibin/exp-pred.sbin"
;;; Loading binary file "ibin/colab-access.sbin"
;;; Loading binary file "ibin/retrieval.sbin"
;;; Loading binary file "ibin/trace.sbin"
;;; Warning: Redefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "ind-reasoning.lisp"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "ind-reasoning.lisp"
;;; Loading binary file "ibin/switch.sbin"
;;; Loading binary file "ibin/tx.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "ibin/help-fu.sbin"
;;; Loading binary file "ibin/save-load-graph.sbin"
;;; done loading system TAXON-FRONT-END
;;; Loading system TAXON-PRINT-FCTS
;;; Loading binary file "ibin/print-fcts.sbin"
;;; done loading system TAXON-PRINT-FCTS
;;; Loading system TAXON-REPRESENTATION
;;; Loading binary file "ibin/cnf-subsumption.sbin"
;;; Loading binary file "ibin/cnf-representation.sbin"
;;; Loading binary file "ibin/generate-cn.sbin"
;;; Loading binary file "ibin/print-cnf.sbin"
;;; Loading binary file "ibin/tr2knf.sbin"
;;; Loading binary file "ibin/constructors2fkts.sbin"
;;; Loading binary file "ibin/get-function.sbin"
;;; Loading binary file "ibin/object.sbin"
;;; Loading binary file "ibin/abstract.sbin"
;;; Loading binary file "ibin/print-abstracts.sbin"
;;; Loading binary file "ibin/concrete.sbin"
;;; Loading binary file "ibin/unknown.sbin"
;;; Loading binary file "ibin/deref.sbin"
;;; done loading system TAXON-REPRESENTATION
;;; Loading system TAXON-SUBSUMPTION
;;; Loading binary file "ibin/make-subs-rules.sbin"
;;; Loading binary file "ibin/subsumes-weakly.sbin"
;;; Loading binary file "ibin/subs-rules.sbin"
;;; done loading system TAXON-SUBSUMPTION
;;; Loading system TAXON-CONSISTENCY
;;; Loading binary file "ibin/print-rule.sbin"
;;; Loading binary file "ibin/stacks.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/choice-points.sbin"
;;; Loading binary file "ibin/clash.sbin"
;;; Loading binary file "ibin/abstract-predicates.sbin"
;;; Loading binary file "ibin/agreements.sbin"
;;; Loading binary file "ibin/backtracking.sbin"
;;; Loading binary file "ibin/concrete-predicates.sbin"
;;; Loading binary file "ibin/cond-fcts.sbin"
;;; Loading binary file "ibin/control.sbin"
;;; Loading binary file "ibin/init.sbin"
;;; Loading binary file "ibin/make-assertions.sbin"
;;; Loading binary file "ibin/make-rules.sbin"
;;; Loading binary file "ibin/pathrules-for-concs.sbin"
;;; Loading binary file "ibin/pathrules-for-preds.sbin"
;;; Loading binary file "ibin/process-stacks.sbin"
;;; Loading binary file "ibin/restrictor-rules.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; Loading binary file "ibin/types.sbin"
;;; done loading system TAXON-CONSISTENCY
;;; Loading system TAXON-INCR-REAL-ORD
;;; Loading binary file "ibin/make-predicates.sbin"
;;; Loading binary file "ibin/print-RO.sbin"
;;; Loading binary file "ibin/propagate-number-rest.sbin"
;;; Loading binary file "ibin/propagate-number.sbin"
;;; Loading binary file "ibin/propagate-real.sbin"
;;; Loading binary file "ibin/propagate-symbolic.sbin"
;;; Loading binary file "ibin/representation.sbin"
;;; Loading binary file "ibin/symbolic-clash.sbin"
;;; Loading binary file "ibin/propagate-new.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; done loading system TAXON-INCR-REAL-ORD
;;; Loading system TAXON-CONCRETE
;;; Loading binary file "ibin/get-rules.sbin"
;;; done loading system TAXON-CONCRETE
;;; Loading system TAXON
;;; done loading system TAXON
colab,tx> contax
Contax Subsystem Switch
Try to load; please wait a moment.
;;; Loading system CONTAX
;;; Loading binary file "contax-sbin/assistant-macros.sbin"
;;; Loading binary file "contax-sbin/assistant-functions.sbin"
;;; Loading binary file "contax-sbin/constraint-queues.sbin"
;;; Loading binary file "contax-sbin/hierarchies.sbin"
;;; Loading binary file "contax-sbin/variables.sbin"
;;; Loading binary file "contax-sbin/constraints.sbin"
;;; Loading binary file "contax-sbin/predicates.sbin"
;;; Loading binary file "contax-sbin/revise.sbin"
;;; Loading binary file "contax-sbin/control.sbin"
;;; Loading binary file "contax-sbin/programmer-interface.sbin"
;;; Loading binary file "contax-sbin/negation.sbin"
;;; Loading binary file "contax-sbin/colab-interface.sbin"
;;; Warning: Redefining Function COLAB-DESTROY-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-CONSULT-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "contax-sbin/user-interface.sbin"
;;; Loading binary file "contax-sbin/debugger.sbin"
;;; done loading system CONTAX
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/contax/convert-hierarchy.lisp"
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
colab,tx,cn> forward
Forward Subsystem Switch
Try to load; please wait a moment.
;;; Loading system FW-BASIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/fc-strategies.rf" ..; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/forward-prelude.rf" ..
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-access.sbin"
;;; done loading system FW-BASIC
;;; Loading system FW-SEMI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/semi-naive/semi-naive.sbin"
;;; done loading system FW-SEMI
;;; Loading system FW-META
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.sbin"
;;; Warning: Redefining Function OR-PROCESS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function CLAUSE-T which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function S-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function APPEND-GUARDS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system FW-META
;;; Loading system FW-MAGIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/magic/magic-sets.sbin"
;;; done loading system FW-MAGIC
;;; Loading system FW-INTER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-horizon-comp.sbin"
;;; done loading system FW-INTER
;;; Loading system FW-GASM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.sbin"
;;; Warning: Redefining Function CLASSIFY-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Warning: Redefining Function WANDEL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function READ-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function GWAM.HAS-FAILED which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function PRINTMSEG which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function SHOW-VALUE-OF-SOMETHING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function VALUE-HELP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.sbin"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/procedures.sbin"
;;; done loading system FW-GASM
;;; Loading system FW-EMUL
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/fw-gassem-startup.sbin"
;;; done loading system FW-EMUL
;;; Loading system FW-FAM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.sbin"

FAM  Ver 1.1 , 12. Juni 92
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/interface.sbin"
;;; done loading system FW-FAM
;;; Loading system FW-TX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.sbin"

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/tx-transformer.sbin"
;;; done loading system FW-TX
;;; Loading system FORWARD
;;; done loading system FORWARD
colab,tx,cn,fwi> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> consult micro2.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> filter
filter subsumption graph
colab,tx> switch filtered-graph t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> automatic
Activate automatic mode
colab,tx,fwi> consult wp-mcad2nc.rf
Consults a database to all known subsystems

(ASC-CIRCLE) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(ASC-TC) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(CYLINDER) 
(DESC-CIRCLE) 
colab,tx,fwi> consult tx-parts-emul.rf
Consults a database to all known subsystems
colab,tx,fwi> replace-strategies  tx-additions.rf
Replace the strategies
; Reading file "/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/tx-additions.rf" ..
colab,tx,fwi> compile-strategies
Compile the actual strategies
;;; Expanding Dynamic Memory
colab,tx,fwi> fw-compile
Compile all databases
colab,tx,fwi> contax
Contax Subsystem Switch
colab,tx,fwi,cn> consult tools.ctx
Consults a database to all known subsystems
colab,tx,fwi,cn> consult constdef.lisp
Consults a database to all known subsystems
colab,tx,fwi,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,cn,rfe-l> consult library
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult class-feat
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult rng2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult feat2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult anc-program
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult demo
;;; GC: 517884 words [2071536 bytes] of dynamic storage in use.
;;; 121090 words [484360 bytes] of free storage available before a GC.
;;; 760064 words [3040256 bytes] of free storage available if GC is disabled.
;;; GC: 517884 words [2071536 bytes] of dynamic storage in use.
;;; 121090 words [484360 bytes] of free storage available before a GC.
;;; 760064 words [3040256 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult examples
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> compile
compile relfun database
;;; GC: 614486 words [2457944 bytes] of dynamic storage in use.
;;; 253864 words [1015456 bytes] of free storage available before a GC.
;;; 1122214 words [4488856 bytes] of free storage available if GC is disabled.
;;; GC: 614486 words [2457944 bytes] of dynamic storage in use.
;;; 253864 words [1015456 bytes] of free storage available before a GC.
;;; 1122214 words [4488856 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,fwi,cn,rfe-l> (init-tool-sel)
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.
true

More solutions?  (Y/N) y n

colab,tx,fwi,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,fwi> fw-emul
Forward emulator mode
colab,tx,fwe> rf-query (show-demo)
Query to the RELFUN subsystem

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl45
 (tup (tup radius 25) (tup leftmost cyl45) (tup rightmost cyl45)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl43
 (tup (tup radius 20) (tup leftmost cyl43) (tup rightmost cyl43)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl41
 (tup (tup radius 30) (tup leftmost cyl41) (tup rightmost cyl41)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl39
 (tup (tup radius 40) (tup leftmost cyl39) (tup rightmost cyl39)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 tr38
 (tup (tup center1 50) (tup center2 60) (tup radius1 25) (tup radius2 40)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl36
 (tup (tup radius 20) (tup leftmost cyl36) (tup rightmost cyl36)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl34
 (tup (tup radius 25) (tup leftmost cyl34) (tup rightmost cyl34)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl43-rng44
 (tup
  (tup ground lts-cyl43)
  (tup flank rng44)
  (tup leftmost cyl43)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng42-lts-cyl43
 (tup
  (tup ground lts-cyl43)
  (tup flank rng42)
  (tup leftmost rng42)
  (tup rightmost cyl43) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng40-lts-cyl41
 (tup
  (tup ground lts-cyl41)
  (tup flank rng40)
  (tup leftmost rng40)
  (tup rightmost cyl41) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl36-rng37
 (tup
  (tup ground lts-cyl36)
  (tup flank rng37)
  (tup leftmost cyl36)
  (tup rightmost rng37) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng35-lts-cyl36
 (tup
  (tup ground lts-cyl36)
  (tup flank rng35)
  (tup leftmost rng35)
  (tup rightmost cyl36) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng42-lts-cyl43-rng44
 (tup
  (tup leftflank rng42)
  (tup ground lts-cyl43)
  (tup rightflank rng44)
  (tup leftmost rng42)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng35-lts-cyl36-rng37
 (tup
  (tup leftflank rng35)
  (tup ground lts-cyl36)
  (tup rightflank rng37)
  (tup leftmost rng35)
  (tup rightmost rng37) ) )


------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



constructing classified workpiece ...


classified workpiece:

(cwp
 40
 (tup
  (nft
   (lsh (flk (tup (p 70 40) (p 70 30))) (grd (tup (p 70 30) (p 110 30))))
   (tup) )
  (nft
   (grv
    (flk (tup (p 110 30) (p 110 20)))
    (grd (tup (p 110 20) (p 120 20)))
    (flk (tup (p 120 20) (p 120 25))) )
   (tup) )
  (nft
   (grv
    (flk (tup (p 40 25) (p 40 20)))
    (grd (tup (p 40 20) (p 50 20)))
    (flk (tup (p 50 20) (p 50 25))) )
   (tup) ) ) )




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y


contax tool selection:
  arguments: roughing high-alloy-steel normal 0 90 left
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdl93) (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30) (tup tnmm-71 tmaxp-ptl90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 right
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdr93) (tup rcmx tmaxp-prr30) (tup tnmm-71 tmaxp-ptr90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 left
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdl93) (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30) (tup tnmm-71 tmaxp-ptl90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 right
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdr93) (tup rcmx tmaxp-prr30) (tup tnmm-71 tmaxp-ptr90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 left
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdl93) (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30) (tup tnmm-71 tmaxp-ptl90))
end.


skeletal plan:

(skp
 40
 (com
  (tup
   (alt
    (tup
     (roughing
      (tool dnmm-71 tmaxp-pdl93)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
     (roughing
      (tool rcmx tmaxp-prl40)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
     (roughing
      (tool rcmx tmaxp-prl30)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
     (roughing
      (tool tnmm-71 tmaxp-ptl90)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) ) ) )
   (alt
    (tup
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) ) ) )
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) ) ) ) ) )
   (alt
    (tup
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) ) ) )
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) ) ) ) ) ) ) ) )




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



qualitative simulation:

(tup
 (roughing
  (tool dnmm-71 tmaxp-pdl93)
  left
  (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
 (roughing
  (tool dnmm-71 tmaxp-pdl93)
  left
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool dnmm-71 tmaxp-pdl93)
  left
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
4.4->
(skp
 40
 (com
  (tup
   (alt
    (tup
     (roughing
      (tool dnmm-71 tmaxp-pdr93)
      right
      (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
     (roughing
      (tool rcmx tmaxp-prr30)
      right
      (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
     (roughing
      (tool tnmm-71 tmaxp-ptr90)
      right
      (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) )
   (alt
    (tup
     (roughing
      (tool dnmm-71 tmaxp-pdr93)
      right
      (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
     (roughing
      (tool rcmx tmaxp-prr30)
      right
      (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
     (roughing
      (tool tnmm-71 tmaxp-ptr90)
      right
      (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) ) ) ) )


(tup
 (roughing
  (tool dnmm-71 tmaxp-pdr93)
  right
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool dnmm-71 tmaxp-pdr93)
  right
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
2.0->
(skp 40 (tup))




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



anc-program:

`(tup
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdr93)
   right
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdr93)
   right
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )

More solutions?  (Y/N) y


no-actions
0->
no-rest-skp


no-actions
0->
no-rest-skp


(tup
 (roughing
  (tool rcmx tmaxp-prr30)
  right
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool rcmx tmaxp-prr30)
  right
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
2.0->
(skp 40 (tup))




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



anc-program:

`(tup
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
  (roughing
   (tool rcmx tmaxp-prr30)
   right
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool rcmx tmaxp-prr30)
   right
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )

More solutions?  (Y/N) y


no-actions
0->
no-rest-skp


no-actions
0->
no-rest-skp


(tup
 (roughing
  (tool tnmm-71 tmaxp-ptr90)
  right
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool tnmm-71 tmaxp-ptr90)
  right
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
2.0->
(skp 40 (tup))




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



anc-program:

`(tup
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
  (roughing
   (tool tnmm-71 tmaxp-ptr90)
   right
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool tnmm-71 tmaxp-ptr90)
   right
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )

More solutions?  (Y/N) y


no-actions
0->
no-rest-skp


no-actions
0->
no-rest-skp


no-actions
0->
no-rest-skp


(tup
 (roughing
  (tool dnmm-71 tmaxp-pdr93)
  right
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool dnmm-71 tmaxp-pdr93)
  right
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
2.0->
(skp 40 (tup))




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



anc-program:

`(tup
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdr93)
   right
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdr93)
   right
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )

More solutions?  (Y/N) n

batchjob done...
colab,tx,fwe> lisp (quit)
Eval expression
ctec@arctecserv-2: /usr/local/lucid/lisp-4-1-clos

;;; Warning: ADDRESS-UNITS-PER-WORD is not a multiple of the system page siz: 8192 bytes
;;; Lucid Common Lisp/SPARC
;;; Development Environment Version 4.1 Beta DBCS, 9 June 1992
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid and Lucid Common Lisp are trademarks of Lucid, Inc.  Other brand
;;; or product names are trademarks or registered trademarks of their
;;; respective holders.
;;;
;;; This is a preliminary version to be used for testing purposes only.

> (load "/ ../../../                (quit)
ctec@arctecserv-2: cd ../decplan

]0; ctec mo/decplan arctecserv-2 ctec@arctecserv-2: cd ../decplan
		2: /usr/local/lucid/lisp-4-1-clos

;;; Warning: ADDRESS-UNITS-PER-WORD is not a multiple of the system page siz: 8192 bytes
;;; Lucid Common Lisp/SPARC
;;; Development Environment Version 4.1 Beta DBCS, 9 June 1992
;;; Copyright (C) 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Lucid, Inc.
;;; All Rights Reserved
;;;
;;; This software product contains confidential and trade secret information
;;; belonging to Lucid, Inc.  It may not be copied for any reason other than
;;; for archival and backup purposes.
;;;
;;; Lucid and Lucid Common Lisp are trademarks of Lucid, Inc.  Other brand
;;; or product names are trademarks or registered trademarks of their
;;; respective holders.
;;;
;;; This is a preliminary version to be used for testing purposes only.

> (load "../../../my-coal  lab-init")
;;; Loading source file "../../../my-colab-init.lisp"
;;; Warning: File "../../../my-colab-init.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: File "/home/ctec/colab1/top/start-colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
loading start-colab
;;; Loading source file "/home/ctec/colab1/top/our-fs.lisp"
;;; Warning: File "/home/ctec/colab1/top/our-fs.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"

"loading pathname abstraction our-fs" 
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/col-keys.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/col-keys.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/col-init-tx.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/col-init-tx.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/defsystem.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tx-signatur.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tx-signatur.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/front-end/tax-specific.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/colab.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/defsystem.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/RFM-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/RFM-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/taxon/taxon-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/taxon/taxon-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/forward/forward-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/forward/forward-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/contax/contax-system.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/contax/contax-system.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Loading system RELFUN-AUX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/aux/aux.sbin"
;;; done loading system RELFUN-AUX
;;; Loading system RELFUN-RFI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.sbin"
;;; Warning: Redefining Function MORE-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "prelude.rf" ..
RFI - 4 December 1992
   - functions improved:
      - readl
      - consult/replace
      - lconsult/lreplace
      - batch-command
      - script-command
      - listclass
      - transform-query-for-emulator
      - footen-command
   - new functions:
      - footer
      - showdepth-command
   - pretty-print-functions moved to *lisp-extras*
   - *rfi-readtable* is modified instead of lisp *readtable*
   - spy/nospy also affects compiler/emulator
   - consult/replace works for files with multiple setq or with untagged clauses
   - lconsult/lreplace works also with untagged clauses or expanded macros
   - bar is legalized
   - query for emulator is transformed to special footed-procedure 'main'
   - footer: change radically hn- to ft-clauses
   - showdepth: length spy-trace is displayed with stars
   - PLEASE NOTE: It's enough to say compile (does horizon & verti)
   - call for meta-calls is generalized and renamed to ecal (eval+call)
   - spy shows backquotes of structures bound to variables etc.
   - horizon/compile: flatter, normalize, footen; mode-interpreter interface
   - once, naf, toplevel renamed to relfun, interface function rf
   - initial cut generalized to single cut: (hn (foo _x) ... ! ...)
   - bagof-like tupof: (tupof (likes john _x) `(ok _x)) RETURNS tup of (ok _x)
   - access function rf complies to COLAB specification
   - command deanon for databases and automatic deanonymization of requests
   - COLAB partners fw, cn, tx are NOW ACCESSIBLE AS LISP ***FUNCTIONS***
   - error handling improved and rf-pprint also returns its arg
   - command relationalize (flatten + extrarg) puts return into FIRST arg
   - command singlify transforms multi-footed clauses to single-footed ones
   - commands builtins changed, version introduced
   - flatter now treats complex is lhs
   - database is LIST of lists, or-process has db-left/db-right args, prelude
   - cns is interpreted as LISP cons, normalize command, rf-terpri returns t
   - (foot-)sole cut returns proper value: (ft (foo _x) ... v !) => v'
   - PROLOG-style syntax can be loaded; static-flattener uses mk-inst
   - relfun made recursive for interaction breaks in batch; lisp renamed bye
   - exec made recursive for recursive batch files (cf. recursive includes)
   - value-returning clause primitive (clause `(tag head | body))
   - integrated: PROLOG-style syntax and new horizontals (uncomma ...)
   - date/time-returning date builtin (date); rfi-predicates -> operators
   - report errors to boley@informatik.uni-kl.de
   - start by typing (relfun)

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/lisp2pro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/pro2lisp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/comment.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/relfun/patches.sbin"
;;; Warning: Redefining Function PP-INIT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-EXPR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PP-FINISH which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HANDLE-RFI-CMD which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function PRO-COMPLETE-CMD-P which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function READ-FROM-TERMINAL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function RFI-COMMAND which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system RELFUN-RFI
;;; Loading system RELFUN-CODEGENERATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/absynt.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/assocf.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/instr.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.sbin"
Codegenerator 0.53, 19.Sep.90
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cgis.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.sbin"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Variable *LISP-FUNCTIONS* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *USRLIT-ARITY* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *NEXT-CHUNKREG* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Variable *VAR-BINDINGS* defined more than once in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; done loading system RELFUN-CODEGENERATOR
;;; Loading system RELFUN-NORMALIZER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.sbin"
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function MK-INST which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/debug.sbin"
;;; done loading system RELFUN-NORMALIZER
;;; Loading system RELFUN-MODE-INTERPRETER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-interpreter.sbin"
;;; Warning: Redefining Function COLLECT-NEW-VARS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/mode-interpreter/mode-rfi-interface.sbin"
;;; done loading system RELFUN-MODE-INTERPRETER
;;; Loading system RELFUN-EMULATOR
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gaux.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gcla.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmem.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gmht.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gasm.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/ginit.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.sbin"
NyWam --- Version 0.23g --- 14 Feb 92
;;; Warning: Redefining Variable *EMU-DEBUG* which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNTYPE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNMACRO which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNOR which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNLAMBDA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function HOTRANS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function UNCOMMA which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"

;;; done loading system RELFUN-EMULATOR
;;; Loading system RELFUN-CLASSIFIER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn-macro.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/simplify.sbin"
;;; Warning: Redefining Function S-BINDING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas1.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/clasPas2.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.sbin"

Klassifizierer V 1.0 . Letzte Aenderung: 06. 10. 1990
;;; done loading system RELFUN-CLASSIFIER
;;; Loading system RELFUN-INDEX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/idx.sbin"
;;; Warning: Redefining Function RF-FORMAT which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icl.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/icg.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/iif.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/RFM/index/linear.sbin"
;;; done loading system RELFUN-INDEX
;;; Loading system RELFUN
;;; done loading system RELFUN
;;; Warning: Redefining Function NORMALIZE-DATABASE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/normalizer/normalizer.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/RFM/colab-interface.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/RFM/colab-interface.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
;;; Warning: Redefining Function COLAB-RELFUN-HORIZON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-VERTI which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RELFUN-COMPILE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-RFI-CMD-COMPILE which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-SELECT-CLAUSES-OF-1 which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COL-PROMPT-PRINT which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/top/demo-break.lisp"
;;; Warning: File "/home.arctecserv-2a/ctec/colab1/top/demo-break.lisp" does not begin with IN-PACKAGE.  Loading into package "USER"
#P"/home.arctecserv-2a/ctec/colab1/top/demo/decplan/../../../my-colab-init.lisp"
> (colab)
colab> taxon
Taxon Subsystem Switch
Try to load; please wait a moment.
;;; Loading system TAXON-FRONT-END
;;; Loading binary file "ibin/geto.sbin"
;;; Loading binary file "ibin/tx-signatur.sbin"
;;; Loading binary file "ibin/graph.sbin"
;;; Loading binary file "ibin/classify.sbin"
;;; Loading binary file "ibin/psgraph.sbin"
c;;; Loading binary file "ibin/draw-hierarchy.sbin"
on;;; Loading binary file "ibin/draw-on-boards.sbin"
ta;;; Loading binary file "ibin/draw-objects-on-boards.sbin"
x;;; Loading binary file "ibin/abox-manager.sbin"

;;; Loading binary file "ibin/tbox-manager.sbin"
;;; Loading binary file "ibin/absynt.sbin"
fo;;; Loading binary file "ibin/define.sbin"
r;;; Loading binary file "ibin/sprims.sbin"
wa;;; Loading binary file "ibin/push-not.sbin"
r;;; Loading binary file "ibin/assertion.sbin"
d;;; Loading binary file "ibin/ro-predicates.sbin"

;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/exp-asse.sbin"
;;; Loading binary file "ibin/subsumption.sbin"
;;; Loading binary file "ibin/filter-graph.sbin"
ta;;; Loading binary file "ibin/a-reasoning.sbin"
;;; Loading binary file "ibin/cmds.sbin"
;;; Loading binary file "ibin/listing.sbin"
x;;; Loading binary file "ibin/ind-reasoning.sbin"
o;;; Loading binary file "ibin/exp-pred.sbin"
n;;; Loading binary file "ibin/colab-access.sbin"

;;; Loading binary file "ibin/retrieval.sbin"
;;; Loading binary file "ibin/trace.sbin"
;;; Warning: cRedefining Variable *TRACE-CONCEPT-CLOSURE which used to be defined in "ind-reasoning.lisp"
;;; Warning: Redefining Variable *TRACE-REALIZE which used to be defined in "ind-reasoning.lisp"
o;;; Loading binary file "ibin/switch.sbin"
la;;; Loading binary file "ibin/tx.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-TAXON which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
b;;; Loading binary file "ibin/help-fu.sbin"
;;; Loading binary file "ibin/save-load-graph.sbin"
;;; done loading system TAXON-FRONT-END

;;; Loading system TAXON-PRINT-FCTS
;;; Loading binary file "ibin/print-fcts.sbin"
;;; done loading system TAXON-PRINT-FCTS
;;; Loading system TAXON-REPRESENTATION
;;; Loading binary file "ibin/cnf-subsumption.sbin"
;;; Loading binary file "ibin/cnf-representation.sbin"
;;; Loading binary file "ibin/generate-cn.sbin"
;;; Loading binary file "ibin/print-cnf.sbin"
;;; Loading binary file "ibin/tr2knf.sbin"
;;; Loading binary file "ibin/constructors2fkts.sbin"
;;; Loading binary file "ibin/get-function.sbin"
;;; Loading binary file "ibin/object.sbin"
;;; Loading binary file "ibin/abstract.sbin"
;;; Loading binary file "ibin/print-abstracts.sbin"
;;; Loading binary file "ibin/concrete.sbin"
;;; Loading binary file "ibin/unknown.sbin"
;;; Loading binary file "ibin/deref.sbin"
;;; done loading system TAXON-REPRESENTATION
;;; Loading system TAXON-SUBSUMPTION
;;; Loading binary file "ibin/make-subs-rules.sbin"
;;; Loading binary file "ibin/subsumes-weakly.sbin"
;;; Loading binary file "ibin/subs-rules.sbin"
;;; done loading system TAXON-SUBSUMPTION
;;; Loading system TAXON-CONSISTENCY
;;; Loading binary file "ibin/print-rule.sbin"
;;; Loading binary file "ibin/stacks.sbin"
;;; Loading binary file "ibin/predicates.sbin"
;;; Loading binary file "ibin/choice-points.sbin"
;;; Loading binary file "ibin/clash.sbin"
;;; Loading binary file "ibin/abstract-predicates.sbin"
;;; Loading binary file "ibin/agreements.sbin"
;;; Loading binary file "ibin/backtracking.sbin"
;;; Loading binary file "ibin/concrete-predicates.sbin"
;;; Loading binary file "ibin/cond-fcts.sbin"
;;; Loading binary file "ibin/control.sbin"
;;; Loading binary file "ibin/init.sbin"
;;; Loading binary file "ibin/make-assertions.sbin"
;;; Loading binary file "ibin/make-rules.sbin"
;;; Loading binary file "ibin/pathrules-for-concs.sbin"
;;; Loading binary file "ibin/pathrules-for-preds.sbin"
;;; Loading binary file "ibin/process-stacks.sbin"
;;; Loading binary file "ibin/restrictor-rules.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; Loading binary file "ibin/types.sbin"
;;; done loading system TAXON-CONSISTENCY
;;; Loading system TAXON-INCR-REAL-ORD
;;; Loading binary file "ibin/make-predicates.sbin"
;;; Loading binary file "ibin/print-RO.sbin"
;;; Loading binary file "ibin/propagate-number-rest.sbin"
;;; Loading binary file "ibin/propagate-number.sbin"
;;; Loading binary file "ibin/propagate-real.sbin"
;;; Loading binary file "ibin/propagate-symbolic.sbin"
;;; Loading binary file "ibin/representation.sbin"
;;; Loading binary file "ibin/symbolic-clash.sbin"
;;; Loading binary file "ibin/propagate-new.sbin"
;;; Loading binary file "ibin/rules.sbin"
;;; done loading system TAXON-INCR-REAL-ORD
;;; Loading system TAXON-CONCRETE
;;; Loading binary file "ibin/get-rules.sbin"
;;; done loading system TAXON-CONCRETE
;;; Loading system TAXON
;;; done loading system TAXON
colab,tx> Contax Subsystem Switch
Try to load; please wait a moment.
;;; Loading system CONTAX
;;; Loading binary file "contax-sbin/assistant-macros.sbin"
;;; Loading binary file "contax-sbin/assistant-functions.sbin"
;;; Loading binary file "contax-sbin/constraint-queues.sbin"
;;; Loading binary file "contax-sbin/hierarchies.sbin"
;;; Loading binary file "contax-sbin/variables.sbin"
;;; Loading binary file "contax-sbin/constraints.sbin"
;;; Loading binary file "contax-sbin/predicates.sbin"
;;; Loading binary file "contax-sbin/revise.sbin"
;;; Loading binary file "contax-sbin/control.sbin"
;;; Loading binary file "contax-sbin/programmer-interface.sbin"
;;; Loading binary file "contax-sbin/negation.sbin"
;;; Loading binary file "contax-sbin/colab-interface.sbin"
;;; Warning: Redefining Function COLAB-DESTROY-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-CONSULT-CONTAX which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Loading binary file "contax-sbin/user-interface.sbin"
;;; Loading binary file "contax-sbin/debugger.sbin"
;;; done loading system CONTAX
;;; Loading source file "/home.arctecserv-2a/ctec/colab1/contax/convert-hierarchy.lisp"
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
colab,tx,cn> Forward Subsystem Switch
Try to load; please wait a moment.
;;; Loading system FW-BASIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-colab-top.sbin"
;;; Warning: Redefining Function COLAB-CONSULT-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-DESTROY-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
;;; Warning: Redefining Function COLAB-LIST-FORWARD which used to be defined in "/home.arctecserv-2a/ctec/colab1/top/colab.lisp"
; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/fc-strategies.rf" ..; Reading file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/strategies/forward-prelude.rf" ..
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-access.sbin"
;;; done loading system FW-BASIC
;;; Loading system FW-SEMI
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/semi-naive/semi-naive.sbin"
;;; done loading system FW-SEMI
;;; Loading system FW-META
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/meta/part-eval.sbin"
;;; Warning: Redefining Function OR-PROCESS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function CLAUSE-T which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function S-CLAUSE which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; Warning: Redefining Function APPEND-GUARDS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/relfun/rfi.lisp"
;;; done loading system FW-META
;;; Loading system FW-MAGIC
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-bottomup/magic/magic-sets.sbin"
;;; done loading system FW-MAGIC
;;; Loading system FW-INTER
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-retain-admin.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfi/fw-horizon-comp.sbin"
;;; done loading system FW-INTER
;;; Loading system FW-GASM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/changes.sbin"
;;; Warning: Redefining Function CLASSIFY-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/classify.lisp"
;;; Warning: Redefining Function CODE-GEN-PROC which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/cg5.lisp"
;;; Warning: Redefining Function WANDEL which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function READ-DB which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/codegenerator/misc.lisp"
;;; Warning: Redefining Function GWAM.HAS-FAILED which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function PRINTMSEG which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function SHOW-VALUE-OF-SOMETHING which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Warning: Redefining Function VALUE-HELP which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/gama/gwam.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/tools.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/retain.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/absyn2.patch.sbin"
;;; Warning: Redefining Function MK-TERM*CLAS which used to be defined in "/home.arctecserv-2a/ctec/colab1/RFM/classifier/absyn2.lisp"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/procedures.sbin"
;;; done loading system FW-GASM
;;; Loading system FW-EMUL
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/fw-rfe/fw-gassem-startup.sbin"
;;; done loading system FW-EMUL
;;; Loading system FW-FAM
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/compiler.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/emu.sbin"

FAM  Ver 1.1 , 12. Juni 92
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fam/interface.sbin"
;;; done loading system FW-FAM
;;; Loading system FW-TX
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/get-wp.sbin"
;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/instance-name.sbin"

;;; Loading binary file "/home.arctecserv-2a/ctec/colab1/forward/fw-relfun/taxon-interface/tx-transformer.sbin"
;;; done loading system FW-TX
;;; Loading system FORWARD
;;; done loading system FORWARD
colab,tx,cn,fwi> Taxon Subsystem Switch
colab,tx> Colab System Switch
colab> exec decplan^Z
Suspended
ctec@arctecserv-2: new-win-name demo fue[K[K[K[K[K[K[K`demo fuer harold`[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K[K'demo fuer harold'

]0;'demo fuer harold'ctec@arctecserv-2: fg

/usr/local/lucid/lisp-4-1-clos

colab> lisp (dribble "mcad2nc.script t              start.script")
Eval expression
;;; Dribble file "start.script" started

T 
colab> (dribble)
colab: invalid user command ((DRIBBLE))
colab> lisp (dribble)
Eval expression
;;; Dribble file "start.script" finished

T 
colab> (dribble "decplan.script")
colab: invalid user command ((DRIBBLE decplan.script))
colab> lisp (dribble "decplan.script")
Eval expression
;;; Dribble file "decplan.script" started

T 
colab> exec decplan            exec decplan
Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> contax
Contax Subsystem Switch
colab,tx,fwi,cn> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> spy classify
trace classify, assert-ind?, concept-closure
colab,tx> consult feature-concepts.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

 Classify Concept: TRUNCONE 

 Classify Concept: RING 

 Classify Concept: FILLED 

 Classify Concept: HOLLOW 

 Classify Concept: ASCENDING 

 Classify Concept: DESCENDING 

 Classify Concept: CYLINDER 

 Classify Concept: CIRCLE 

 Classify Concept: CONE 

 Classify Concept: ASC-TC 

 Classify Concept: DESC-TC 

 Classify Concept: ASC-RING 

 Classify Concept: DESC-RING 

 Classify Concept: ASC-CIRCLE 

 Classify Concept: DESC-CIRCLE 

 Classify Concept: ASC-CONE 

 Classify Concept: DESC-CONE 

 Classify Concept: FEATURE 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: LTS 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: TC+LTS 

 Classify Concept: LNOSE 

 Classify Concept: LSHOULDER 

 Classify Concept: LTS+TC 

 Classify Concept: RNOSE 

 Classify Concept: RSHOULDER 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: TC+LTS+TC 

 Classify Concept: UP-STEP 

 Classify Concept: DOWN-STEP 

 Classify Concept: TOWER 
;;; Expanding Dynamic Memory

 Classify Concept: GROOVE 

 Classify Concept: INSERTION 

 Classify Concept: SHOULDER 

 Classify Concept: LONGTURNINGSURFACE 

 LONGTURNINGSURFACE new member of equivalence class (LTS) 

 Classify Concept: WORKPIECE 
colab,tx> nospy classify
untrace classify, assert-ind?, concept-closure
colab,tx> pphi
print the computed subsumption hierarchy
               TOP <=== (LEVELS-OF-COMPOSITION) (FILLED) (HOLLOW) (ASCENDING) (DESCENDING) (FEATURE) (LIST)
LEVELS-OF-COMPOSITION <=== (ATOMIC) (BICONIC) (TRICONIC) (NCONIC) (H-LTS) (LTS+) (+LTS) (+LTS+) (SHOULDER)
            ATOMIC <=== (TRUNCONE)
          TRUNCONE <=== (RING) (CONE) (ASC-TC) (DESC-TC)
              RING <=== (CIRCLE) (ASC-RING) (DESC-RING)
            CIRCLE <=== (ASC-CIRCLE) (DESC-CIRCLE)
        ASC-CIRCLE <=== (BOTTOM)
       DESC-CIRCLE <=== (BOTTOM)
          ASC-RING <=== (ASC-CIRCLE)
         DESC-RING <=== (DESC-CIRCLE)
              CONE <=== (CIRCLE) (ASC-CONE) (DESC-CONE)
          ASC-CONE <=== (ASC-CIRCLE)
         DESC-CONE <=== (DESC-CIRCLE)
            ASC-TC <=== (CYLINDER) (ASC-RING) (ASC-CONE)
          CYLINDER <=== (BOTTOM)
           DESC-TC <=== (CYLINDER) (DESC-RING) (DESC-CONE)
           BICONIC <=== (BOTTOM)
          TRICONIC <=== (BOTTOM)
            NCONIC <=== (BOTTOM)
             H-LTS <=== (LONGTURNINGSURFACE LTS)
LONGTURNINGSURFACE LTS <=== (BOTTOM)
              LTS+ <=== (LTS+TC)
            LTS+TC <=== (RNOSE) (RSHOULDER)
             RNOSE <=== (BOTTOM)
         RSHOULDER <=== (BOTTOM)
              +LTS <=== (TC+LTS)
            TC+LTS <=== (LNOSE) (LSHOULDER)
             LNOSE <=== (BOTTOM)
         LSHOULDER <=== (BOTTOM)
             +LTS+ <=== (TC+LTS+TC)
         TC+LTS+TC <=== (UP-STEP) (DOWN-STEP) (TOWER) (GROOVE) (WORKPIECE)
           UP-STEP <=== (BOTTOM)
         DOWN-STEP <=== (BOTTOM)
             TOWER <=== (BOTTOM)
            GROOVE <=== (INSERTION)
         INSERTION <=== (BOTTOM)
         WORKPIECE <=== (BOTTOM)
          SHOULDER <=== (RSHOULDER) (LSHOULDER)
            FILLED <=== (BOTTOM)
            HOLLOW <=== (BOTTOM)
         ASCENDING <=== (ASC-TC)
        DESCENDING <=== (DESC-TC)
           FEATURE <=== (LONGTURNINGSURFACE LTS) (TC+LTS) (LTS+TC) (TC+LTS+TC) (SHOULDER)
              LIST <=== (BOTTOM)

colab,tx> filter 
filter subsumption graph
colab,tx> switch filtered-graph T
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> pphi
print the computed subsumption hierarchy
               TOP <=== (TC+LTS+TC) (LTS+TC) (TC+LTS) (LONGTURNINGSURFACE) (TRUNCONE)
         TC+LTS+TC <=== (WORKPIECE) (GROOVE)
         WORKPIECE <=== (BOTTOM)
            GROOVE <=== (BOTTOM)
            LTS+TC <=== (RSHOULDER) (RNOSE)
         RSHOULDER <=== (BOTTOM)
             RNOSE <=== (BOTTOM)
            TC+LTS <=== (LSHOULDER) (LNOSE)
         LSHOULDER <=== (BOTTOM)
             LNOSE <=== (BOTTOM)
LONGTURNINGSURFACE <=== (BOTTOM)
          TRUNCONE <=== (ASC-TC) (DESC-TC) (CIRCLE)
            ASC-TC <=== (CYLINDER)
          CYLINDER <=== (BOTTOM)
           DESC-TC <=== (CYLINDER)
            CIRCLE <=== (BOTTOM)

colab,tx> clear-abox
clear TAXON's ABox (delete individuals and assertions)

#<Hash-Table 1205A96> 
colab,tx> contax
Contax Subsystem Switch
colab,tx,cn> consult decplan.col
Consults a database to all known subsystems
colab,tx,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,cn,rfe-l> destroy
destroy the relfun database
colab,tx,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,cn,rfe-l> compile
compile relfun database
;;; GC: 491178 words [1964712 bytes] of dynamic storage in use.
;;; 147796 words [591184 bytes] of free storage available before a GC.
;;; 786770 words [3147080 bytes] of free storage available if GC is disabled.
;;; GC: 491178 words [1964712 bytes] of dynamic storage in use.
;;; 147796 words [591184 bytes] of free storage available before a GC.
;;; 786770 words [3147080 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,cn,rfe-l> destroy
destroy the relfun database
colab,tx,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,cn,rfe-l,fwi> automatic
Activate automatic mode
colab,tx,cn,rfe-l,fwi> destroy-facts
Destroy the factbase
colab,tx,cn,rfe-l,fwi> destroy-rules
Destroy the rulebases
colab,tx,cn,rfe-l,fwi> destroy-magic
Destroy magic rules and seeds
colab,tx,cn,rfe-l,fwi> consult wp-facts.rf
Consults a database to all known subsystems

(ASC-TC CIRCLE) 
(CYLINDER) 
(DESC-TC) 
(CYLINDER) 
(ASC-TC) 
(CYLINDER) 
(ASC-TC) 
(CYLINDER) 
(DESC-TC) 
(CYLINDER) 
(ASC-TC) 
(CYLINDER) 
(DESC-TC) 
(CYLINDER) 
(DESC-TC CIRCLE) 
colab,tx,cn,rfe-l,fwi> consult feature-rules.rf
Consults a database to all known subsystems
colab,tx,cn,rfe-l,fwi> eval
Bottom-up-evaluation
colab,tx,cn,rfe-l,fwi> taxon
Taxon Subsystem Switch
colab,tx> instances workpiece
compute a list of all instances of <concept term>

(TC+LTS+TC-CIRC1-LTS-CIRC1-CIRC15-CIRC15) 
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,rfe-l> (decplan)
-----------contax-call--------------
roughing contour high-alloy-steel right 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prr30))

-----------contax-call--------------
roughing contour high-alloy-steel left 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30))

`(tup
  skp
  (tup dir both)
  (tup kind contour)
  (tup
   s/d
   (tup
    actions
    (tup
     (tup tool rcmx tmaxp-prr30)
     (tup right contour (tup geo (tup p 40 0) (tup p 40 80) (tup p 60 80)))
     (tup right contour (tup geo (tup p 30 0) (tup p 30 60) (tup p 40 60)))
     (tup
      right
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup
      right
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) ) )
    (tup
     (tup tool rcmx tmaxp-prl40)
     (tup
      left
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) )
     (tup
      left
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup left contour (tup geo (tup p 60 160) (tup p 30 160) (tup p 30 200))) ) )
   (tup actions) ) )

More solutions?  (Y/N) y


-----------contax-call--------------
roughing contour high-alloy-steel left 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30))

`(tup
  skp
  (tup dir both)
  (tup kind contour)
  (tup
   s/d
   (tup
    actions
    (tup
     (tup tool rcmx tmaxp-prr30)
     (tup right contour (tup geo (tup p 40 0) (tup p 40 80) (tup p 60 80)))
     (tup right contour (tup geo (tup p 30 0) (tup p 30 60) (tup p 40 60)))
     (tup
      right
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup
      right
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) ) )
    (tup
     (tup tool rcmx tmaxp-prl40)
     (tup
      left
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) )
     (tup
      left
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup left contour (tup geo (tup p 60 160) (tup p 30 160) (tup p 30 200))) ) )
   (tup actions) ) )

More solutions?  (Y/N) y


-----------contax-call--------------
roughing contour high-alloy-steel left 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30))

-----------contax-call--------------
roughing contour high-alloy-steel left 0 90 
-----------contax-result------------`(tup
  (tup dnmm-71 tmaxp-pdl93)
  (tup rcmx tmaxp-prl40)
  (tup rcmx tmaxp-prl30)
  (tup tnmm-71 tmaxp-ptl90) )

`(tup
  skp
  (tup dir both)
  (tup kind contour)
  (tup
   s/d
   (tup
    actions
    (tup
     (tup tool rcmx tmaxp-prr30)
     (tup right contour (tup geo (tup p 40 0) (tup p 40 80) (tup p 60 80)))
     (tup right contour (tup geo (tup p 30 0) (tup p 30 60) (tup p 40 60)))
     (tup
      right
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup
      right
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) ) )
    (tup
     (tup tool rcmx tmaxp-prl40)
     (tup
      left
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) )
     (tup
      left
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) ) )
    (tup
     (tup tool dnmm-71 tmaxp-pdl93)
     (tup left contour (tup geo (tup p 60 160) (tup p 30 160) (tup p 30 200))) ) )
   (tup actions) ) )

More solutions?  (Y/N) n

colab,tx,fwi,rfe-l> 
batchjob done...
colab,tx,fwi,rfe-l> lisp (dribble)
Eval expression
;;; Dribble file "decplan.script" finished

T 
colab,tx,fwi,rfe-l> l facts       forward
Forward Subsystem Switch
colab,tx,fwi> listr facts        facts      -facts
List factbase

Entire Facts:
(hn (neighbor circ1 cyl2))
(hn (neighbor cyl2 rng3))
(hn (neighbor rng3 cyl4))
(hn (neighbor cyl4 rng5))
(hn (neighbor rng5 cyl6))
(hn (neighbor cyl6 rng7))
(hn (neighbor rng7 cyl8))
(hn (neighbor cyl8 rng9))
(hn (neighbor rng9 cyl10))
(hn (neighbor cyl10 tr11))
(hn (neighbor tr11 cyl12))
(hn (neighbor cyl12 rng13))
(hn (neighbor rng13 cyl14))
(hn (neighbor cyl14 circ15))

Derived Facts:
(hn (lnose
     tc+lts-circ1-lts-circ1-circ15
     (tup
      (tup ground lts-circ1-circ15)
      (tup flank circ1)
      (tup leftmost circ1)
      (tup rightmost cyl14) ) ) )
(hn (lnose
     tc+lts-circ1-lts-circ1-cyl6
     (tup
      (tup ground lts-circ1-cyl6)
      (tup flank circ1)
      (tup leftmost circ1)
      (tup rightmost cyl6) ) ) )
(hn (lnose
     tc+lts-circ1-lts-circ1-cyl4
     (tup
      (tup ground lts-circ1-cyl4)
      (tup flank circ1)
      (tup leftmost circ1)
      (tup rightmost cyl4) ) ) )
(hn (lnose
     tc+lts-rng7-lts-cyl8
     (tup
      (tup ground lts-cyl8)
      (tup flank rng7)
      (tup leftmost rng7)
      (tup rightmost cyl8) ) ) )
(hn (lnose
     tc+lts-rng5-lts-cyl6
     (tup
      (tup ground lts-cyl6)
      (tup flank rng5)
      (tup leftmost rng5)
      (tup rightmost cyl6) ) ) )
(hn (lnose
     tc+lts-circ1-lts-cyl2
     (tup
      (tup ground lts-cyl2)
      (tup flank circ1)
      (tup leftmost circ1)
      (tup rightmost cyl2) ) ) )
(hn (truncone
     circ15
     (tup (tup center1 200) (tup center2 200) (tup radius1 30) (tup radius2 0)) ) )
(hn (truncone
     cyl14
     (tup
      (tup center1 160)
      (tup center2 200)
      (tup radius1 30)
      (tup radius2 30) ) ) )
(hn (truncone
     rng13
     (tup
      (tup center1 160)
      (tup center2 160)
      (tup radius1 60)
      (tup radius2 30) ) ) )
(hn (truncone
     cyl12
     (tup
      (tup center1 140)
      (tup center2 160)
      (tup radius1 60)
      (tup radius2 60) ) ) )
(hn (truncone
     tr11
     (tup
      (tup center1 130)
      (tup center2 140)
      (tup radius1 50)
      (tup radius2 60) ) ) )
(hn (truncone
     cyl10
     (tup
      (tup center1 110)
      (tup center2 130)
      (tup radius1 50)
      (tup radius2 50) ) ) )
(hn (truncone
     rng9
     (tup
      (tup center1 110)
      (tup center2 110)
      (tup radius1 60)
      (tup radius2 50) ) ) )
(hn (truncone
     cyl8
     (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60)) ) )
(hn (truncone
     rng7
     (tup (tup center1 80) (tup center2 80) (tup radius1 40) (tup radius2 60)) ) )
(hn (truncone
     cyl6
     (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40)) ) )
(hn (truncone
     rng5
     (tup (tup center1 60) (tup center2 60) (tup radius1 20) (tup radius2 40)) ) )
(hn (truncone
     cyl4
     (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20)) ) )
(hn (truncone
     rng3
     (tup (tup center1 40) (tup center2 40) (tup radius1 30) (tup radius2 20)) ) )
(hn (truncone
     cyl2
     (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30)) ) )
(hn (truncone
     circ1
     (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 30)) ) )
(hn (rnose
     lts+tc-lts-circ1-circ15-circ15
     (tup
      (tup ground lts-circ1-circ15)
      (tup flank circ15)
      (tup leftmost cyl2)
      (tup rightmost circ15) ) ) )
(hn (rnose
     lts+tc-lts-cyl14-circ15
     (tup
      (tup ground lts-cyl14)
      (tup flank circ15)
      (tup leftmost cyl14)
      (tup rightmost circ15)^Z 
Suspended
ctec@arctecserv-2: vi decplan.bat

7[?47h[36;1H[?1h="decplan.bat" 36/403 [H[2Jtaxon[H
forward
contax
colab
destroy
taxon
spy classify
consult feature-concepts.tx
nospy classify
pphi
filter
switch filtered-graph T
switch reduced-abox t
pphi
clear-abox
contax
consult decplan.col
rfe
destroy
consult skeletal
compile
destroy
forward
automatic
destroy-facts
destroy-rules
destroy-magic
consult wp-facts.rf
consult feature-rules.rf
eval
taxon
instances workpiece
forward
rfe
(decplan)[H[35B"decplan.bat" 36/403[H[35B[K/forward
[H
[34B[K/[13A





[L[7B[K[7A[@l[@i[@s[@t[@-[@f[@a[@c[@t[@s
[6B"decplan.bat" 37/414 

[J[?1l>[2J[?47l8ctec@arctecserv-2: vi ext-[K[K[K[K[K[Kfg

/usr/local/lucid/lisp-4-1-clos
) ) )
(hn (rnose
     lts+tc-lts-cyl12-rng13
     (tup
      (tup ground lts-cyl12)
      (tup flank rng13)
      (tup leftmost cyl12)
      (tup rightmost rng13) ) ) )
(hn (rnose
     lts+tc-lts-cyl8-rng9
     (tup
      (tup ground lts-cyl8)
      (tup flank rng9)
      (tup leftmost cyl8)
      (tup rightmost rng9) ) ) )
(hn (rnose
     lts+tc-lts-cyl2-rng3
     (tup
      (tup ground lts-cyl2)
      (tup flank rng3)
      (tup leftmost cyl2)
      (tup rightmost rng3) ) ) )
(hn (lshoulder
     tc+lts-rng13-lts-cyl14
     (tup
      (tup ground lts-cyl14)
      (tup flank rng13)
      (tup leftmost rng13)
      (tup rightmost cyl14) ) ) )
(hn (lshoulder
     tc+lts-rng9-lts-cyl10
     (tup
      (tup ground lts-cyl10)
      (tup flank rng9)
      (tup leftmost rng9)
      (tup rightmost cyl10) ) ) )
(hn (lshoulder
     tc+lts-rng3-lts-cyl4
     (tup
      (tup ground lts-cyl4)
      (tup flank rng3)
      (tup leftmost rng3)
      (tup rightmost cyl4) ) ) )
(hn (asc-tc
     cyl14
     (tup
      (tup center1 160)
      (tup center2 200)
      (tup radius1 30)
      (tup radius2 30) ) ) )
(hn (asc-tc
     cyl12
     (tup
      (tup center1 140)
      (tup center2 160)
      (tup radius1 60)
      (tup radius2 60) ) ) )
(hn (asc-tc
     tr11
     (tup
      (tup center1 130)
      (tup center2 140)
      (tup radius1 50)
      (tup radius2 60) ) ) )
(hn (asc-tc
     cyl10
     (tup
      (tup center1 110)
      (tup center2 130)
      (tup radius1 50)
      (tup radius2 50) ) ) )
(hn (asc-tc
     cyl8
     (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60)) ) )
(hn (asc-tc
     rng7
     (tup (tup center1 80) (tup center2 80) (tup radius1 40) (tup radius2 60)) ) )
(hn (asc-tc
     cyl6
     (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40)) ) )
(hn (asc-tc
     rng5
     (tup (tup center1 60) (tup center2 60) (tup radius1 20) (tup radius2 40)) ) )
(hn (asc-tc
     cyl4
     (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20)) ) )
(hn (asc-tc
     cyl2
     (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30)) ) )
(hn (asc-tc
     circ1
     (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 30)) ) )
(hn (desc-tc
     circ15
     (tup (tup center1 200) (tup center2 200) (tup radius1 30) (tup radius2 0)) ) )
(hn (desc-tc
     cyl14
     (tup
      (tup center1 160)
      (tup center2 200)
      (tup radius1 30)
      (tup radius2 30) ) ) )
(hn (desc-tc
     rng13
     (tup
      (tup center1 160)
      (tup center2 160)
      (tup radius1 60)
      (tup radius2 30) ) ) )
(hn (desc-tc
     cyl12
     (tup
      (tup center1 140)
      (tup center2 160)
      (tup radius1 60)
      (tup radius2 60) ) ) )
(hn (desc-tc
     cyl10
     (tup
      (tup center1 110)
      (tup center2 130)
      (tup radius1 50)
      (tup radius2 50) ) ) )
(hn (desc-tc
     rng9
     (tup
      (tup center1 110)
      (tup center2 110)
      (tup radius1 60)
      (tup radius2 50) ) ) )
(hn (desc-tc
     cyl8
     (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60)) ) )
(hn (desc-tc
     cyl6
     (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40)) ) )
(hn (desc-tc
     cyl4
     (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20)) ) )
(hn (desc-tc
     rng3
     (tup (tup center1 40) (tup center2 40) (tup radius1 30) (tup radius2 20)) ) )
(hn (desc-tc
     cyl2
     (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30)) ) )
(hn (groove
     tc+lts+tc-rng3-lts-cyl4-rng5
     (tup
      (tup left tc+lts-rng3-lts-cyl4)
      (tup right lts+tc-lts-cyl4-rng5)
      (tup leftmost rng3)
      (tup rightmost rng5) ) ) )
(hn (groove
     tc+lts+tc-rng9-lts-cyl10-tr11
     (tup
      (tup left tc+lts-rng9-lts-cyl10)
      (tup right lts+tc-lts-cyl10-tr11)
      (tup leftmost rng9)
      (tup rightmost tr11) ) ) )
(hn (cylinder
     cyl14
     (tup
      (tup center1 160)
      (tup center2 200)
      (tup radius1 30)
      (tup radius2 30) ) ) )
(hn (cylinder
     cyl12
     (tup
      (tup center1 140)
      (tup center2 160)
      (tup radius1 60)
      (tup radius2 60) ) ) )
(hn (cylinder
     cyl10
     (tup
      (tup center1 110)
      (tup center2 130)
      (tup radius1 50)
      (tup radius2 50) ) ) )
(hn (cylinder
     cyl8
     (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60)) ) )
(hn (cylinder
     cyl6
     (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40)) ) )
(hn (cylinder
     cyl4
     (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20)) ) )
(hn (cylinder
     cyl2
     (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30)) ) )
(hn (rshoulder
     lts+tc-lts-circ1-cyl6-rng7
     (tup
      (tup ground lts-circ1-cyl6)
      (tup flank rng7)
      (tup leftmost cyl2)
      (tup rightmost rng7) ) ) )
(hn (rshoulder
     lts+tc-lts-circ1-cyl4-rng5
     (tup
      (tup ground lts-circ1-cyl4)
      (tup flank rng5)
      (tup leftmost cyl2)
      (tup rightmost rng5) ) ) )
(hn (rshoulder
     lts+tc-lts-cyl10-tr11
     (tup
      (tup ground lts-cyl10)
      (tup flank tr11)
      (tup leftmost cyl10)
      (tup rightmost tr11) ) ) )
(hn (rshoulder
     lts+tc-lts-cyl6-rng7
     (tup
      (tup ground lts-cyl6)
      (tup flank rng7)
      (tup leftmost cyl6)
      (tup rightmost rng7) ) ) )
(hn (rshoulder
     lts+tc-lts-cyl4-rng5
     (tup
      (tup ground lts-cyl4)
      (tup flank rng5)
      (tup leftmost cyl4)
      (tup rightmost rng5) ) ) )
(hn (circle
     circ15
     (tup (tup center1 200) (tup center2 200) (tup radius1 30) (tup radius2 0)) ) )
(hn (circle
     circ1
     (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 30)) ) )
(hn (lts+tc
     lts+tc-lts-circ1-circ15-circ15
     (tup
      (tup ground lts-circ1-circ15)
      (tup flank circ15)
      (tup leftmost cyl2)
      (tup rightmost circ15) ) ) )
(hn (lts+tc
     lts+tc-lts-circ1-cyl6-rng7
     (tup
      (tup ground lts-circ1-cyl6)
      (tup flank rng7)
      (tup leftmost cyl2)
      (tup rightmost rng7) ) ) )
(hn (lts+tc
     lts+tc-lts-circ1-cyl4-rng5
     (tup
      (tup ground lts-circ1-cyl4)
      (tup flank rng5)
      (tup leftmost cyl2)
      (tup rightmost rng5) ) ) )
(hn (lts+tc
     lts+tc-lts-cyl14-circ15
     (tup
      (tup ground lts-cyl14)
      (tup flank circ15)
      (tup leftmost cyl14)
      (tup rightmost circ15) ) ) )
(hn (lts+tc
     lts+tc-lts-cyl12-rng13
     (tup
      (tup ground lts-cyl12)
      (tup flank rng13)
      (tup leftmost cyl12)
      (tup rightmost rng13) ) ) )
(hn (lts+tc
     lts+tc-lts-cyl10-tr11
   ^C 
>>Break: Keyboard interrupt

INTERRUPT-PROCESS:
   Required arg 0 (PROCESS): #<Process Initial 7C3FE6>
   Required arg 1 (FUNCTION): #<Compiled-Function LUCID::DO-KEYBOARD-INTERRUPTION 3DC9FE>
   Rest arg 2 (ARGS): NIL
:C  0: Return from Break
:A  1: Abort to Lisp Top Level

-> 1
Abort to Lisp Top Level
Back to Lisp Top Level

> (colab)
colab,tx,fwi> colab
Colab System Switch
colab> exec ext-de           destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> exec ext-decplan
Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> contax
Contax Subsystem Switch
colab,tx,fwi,cn> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> spy classify
trace classify, assert-ind?, concept-closure
colab,tx> consult feature-concepts.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

 Classify Concept: TRUNCONE 

 Classify Concept: RING 

 Classify Concept: FILLED 

 Classify Concept: HOLLOW 

 Classify Concept: ASCENDING 

 Classify Concept: DESCENDING 

 Classify Concept: CYLINDER 

 Classify Concept: CIRCLE 

 Classify Concept: CONE 

 Classify Concept: ASC-TC 

 Classify Concept: DESC-TC 

 Classify Concept: ASC-RING 

 Classify Concept: DESC-RING 

 Classify Concept: ASC-CIRCLE 

 Classify Concept: DESC-CIRCLE 

 Classify Concept: ASC-CONE 

 Classify Concept: DESC-CONE 

 Classify Concept: FEATURE 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: LTS 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: TC+LTS 

 Classify Concept: LNOSE 

 Classify Concept: LSHOULDER 

 Classify Concept: LTS+TC 

 Classify Concept: RNOSE 

 Classify Concept: RSHOULDER 

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

 Classify Concept: TC+LTS+TC 

 Classify Concept: UP-STEP 

 Classify Concept: DOWN-STEP 

 Classify Concept: TOWER 
;;; GC: 620200 words [2480800 bytes] of dynamic storage in use.
;;; 297302 words [1189208 bytes] of free storage available before a GC.
;;; 1214804 words [4859216 bytes] of free storage available if GC is disabled.

 Classify Concept: GROOVE 

 Classify Concept: INSERTION 

 Classify Concept: SHOULDER 

 Classify Concept: LONGTURNINGSURFACE 

 LONGTURNINGSURFACE new member of equivalence class (LTS) 

 Classify Concept: WORKPIECE 
colab,tx> nospy classify
untrace classify, assert-ind?, concept-closure
colab,tx> pphi
print the computed subsumption hierarchy
               TOP <=== (LEVELS-OF-COMPOSITION) (FILLED) (HOLLOW) (ASCENDING) (DESCENDING) (FEATURE) (LIST)
LEVELS-OF-COMPOSITION <=== (ATOMIC) (BICONIC) (TRICONIC) (NCONIC) (H-LTS) (LTS+) (+LTS) (+LTS+) (SHOULDER)
            ATOMIC <=== (TRUNCONE)
          TRUNCONE <=== (RING) (CONE) (ASC-TC) (DESC-TC)
              RING <=== (CIRCLE) (ASC-RING) (DESC-RING)
            CIRCLE <=== (ASC-CIRCLE) (DESC-CIRCLE)
        ASC-CIRCLE <=== (BOTTOM)
       DESC-CIRCLE <=== (BOTTOM)
          ASC-RING <=== (ASC-CIRCLE)
         DESC-RING <=== (DESC-CIRCLE)
              CONE <=== (CIRCLE) (ASC-CONE) (DESC-CONE)
          ASC-CONE <=== (ASC-CIRCLE)
         DESC-CONE <=== (DESC-CIRCLE)
            ASC-TC <=== (CYLINDER) (ASC-RING) (ASC-CONE)
          CYLINDER <=== (BOTTOM)
           DESC-TC <=== (CYLINDER) (DESC-RING) (DESC-CONE)
           BICONIC <=== (BOTTOM)
          TRICONIC <=== (BOTTOM)
            NCONIC <=== (BOTTOM)
             H-LTS <=== (LONGTURNINGSURFACE LTS)
LONGTURNINGSURFACE LTS <=== (BOTTOM)
              LTS+ <=== (LTS+TC)
            LTS+TC <=== (RNOSE) (RSHOULDER)
             RNOSE <=== (BOTTOM)
         RSHOULDER <=== (BOTTOM)
              +LTS <=== (TC+LTS)
            TC+LTS <=== (LNOSE) (LSHOULDER)
             LNOSE <=== (BOTTOM)
         LSHOULDER <=== (BOTTOM)
             +LTS+ <=== (TC+LTS+TC)
         TC+LTS+TC <=== (UP-STEP) (DOWN-STEP) (TOWER) (GROOVE) (WORKPIECE)
           UP-STEP <=== (BOTTOM)
         DOWN-STEP <=== (BOTTOM)
             TOWER <=== (BOTTOM)
            GROOVE <=== (INSERTION)
         INSERTION <=== (BOTTOM)
         WORKPIECE <=== (BOTTOM)
          SHOULDER <=== (RSHOULDER) (LSHOULDER)
            FILLED <=== (BOTTOM)
            HOLLOW <=== (BOTTOM)
         ASCENDING <=== (ASC-TC)
        DESCENDING <=== (DESC-TC)
           FEATURE <=== (LONGTURNINGSURFACE LTS) (TC+LTS) (LTS+TC) (TC+LTS+TC) (SHOULDER)
              LIST <=== (BOTTOM)

colab,tx> filter 
filter subsumption graph
colab,tx> switch filtered-graph T
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> pphi
print the computed subsumption hierarchy
               TOP <=== (TC+LTS+TC) (LTS+TC) (TC+LTS) (LONGTURNINGSURFACE) (TRUNCONE)
         TC+LTS+TC <=== (WORKPIECE) (GROOVE)
         WORKPIECE <=== (BOTTOM)
            GROOVE <=== (BOTTOM)
            LTS+TC <=== (RSHOULDER) (RNOSE)
         RSHOULDER <=== (BOTTOM)
             RNOSE <=== (BOTTOM)
            TC+LTS <=== (LSHOULDER) (LNOSE)
         LSHOULDER <=== (BOTTOM)
             LNOSE <=== (BOTTOM)
LONGTURNINGSURFACE <=== (BOTTOM)
          TRUNCONE <=== (ASC-TC) (DESC-TC) (CIRCLE)
            ASC-TC <=== (CYLINDER)
          CYLINDER <=== (BOTTOM)
           DESC-TC <=== (CYLINDER)
            CIRCLE <=== (BOTTOM)

colab,tx> clear-abox
clear TAXON's ABox (delete individuals and assertions)

#<Hash-Table 15B64F6> 
colab,tx> contax
Contax Subsystem Switch
colab,tx,cn> consult decplan.col
Consults a database to all known subsystems
colab,tx,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,cn,rfe-l> destroy
destroy the relfun database
colab,tx,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,cn,rfe-l> compile
compile relfun database
;;; GC: 693782 words [2775128 bytes] of dynamic storage in use.
;;; 223720 words [894880 bytes] of free storage available before a GC.
;;; 1141222 words [4564888 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,cn,rfe-l> destroy
destroy the relfun database
colab,tx,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,cn,rfe-l,fwi> automatic
Activate automatic mode
colab,tx,cn,rfe-l,fwi> spy
Set trace mode
colab,tx,cn,rfe-l,fwi> destroy-facts
Destroy the factbase
colab,tx,cn,rfe-l,fwi> destroy-rules
Destroy the rulebases
colab,tx,cn,rfe-l,fwi> destroy-magic
Destroy magic rules and seeds
colab,tx,cn,rfe-l,fwi> tx spy assert-ind?
Call subsystem taxon with rest of arguments
trace classify, assert-ind?, concept-closure
colab,tx,cn,rfe-l,fwi> consult wp-facts.rf
Consults a database to all known subsystems
1 Enter ASSERT-IND? CIRC1 TRUNCONE (TUP (TUP CENTER1 0) (TUP CENTER2 0) (TUP RADIUS1 0) (TUP RADIUS2 30))
1 Exit ASSERT-IND? (ASC-TC CIRCLE)

(ASC-TC CIRCLE) 
1 Enter ASSERT-IND? CYL2 TRUNCONE (TUP (TUP CENTER1 0) (TUP CENTER2 40) (TUP RADIUS1 30) (TUP RADIUS2 30))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? RNG3 TRUNCONE (TUP (TUP CENTER1 40) (TUP CENTER2 40) (TUP RADIUS1 30) (TUP RADIUS2 20))
1 Exit ASSERT-IND? (DESC-TC)

(DESC-TC) 
1 Enter ASSERT-IND? CYL4 TRUNCONE (TUP (TUP CENTER1 40) (TUP CENTER2 60) (TUP RADIUS1 20) (TUP RADIUS2 20))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? RNG5 TRUNCONE (TUP (TUP CENTER1 60) (TUP CENTER2 60) (TUP RADIUS1 20) (TUP RADIUS2 40))
1 Exit ASSERT-IND? (ASC-TC)

(ASC-TC) 
1 Enter ASSERT-IND? CYL6 TRUNCONE (TUP (TUP CENTER1 60) (TUP CENTER2 80) (TUP RADIUS1 40) (TUP RADIUS2 40))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? RNG7 TRUNCONE (TUP (TUP CENTER1 80) (TUP CENTER2 80) (TUP RADIUS1 40) (TUP RADIUS2 60))
1 Exit ASSERT-IND? (ASC-TC)

(ASC-TC) 
1 Enter ASSERT-IND? CYL8 TRUNCONE (TUP (TUP CENTER1 80) (TUP CENTER2 110) (TUP RADIUS1 60) (TUP RADIUS2 60))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? RNG9 TRUNCONE (TUP (TUP CENTER1 110) (TUP CENTER2 110) (TUP RADIUS1 60) (TUP RADIUS2 50))
1 Exit ASSERT-IND? (DESC-TC)

(DESC-TC) 
1 Enter ASSERT-IND? CYL10 TRUNCONE (TUP (TUP CENTER1 110) (TUP CENTER2 130) (TUP RADIUS1 50) (TUP RADIUS2 50))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? TR11 TRUNCONE (TUP (TUP CENTER1 130) (TUP CENTER2 140) (TUP RADIUS1 50) (TUP RADIUS2 60))
1 Exit ASSERT-IND? (ASC-TC)

(ASC-TC) 
1 Enter ASSERT-IND? CYL12 TRUNCONE (TUP (TUP CENTER1 140) (TUP CENTER2 160) (TUP RADIUS1 60) (TUP RADIUS2 60))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? RNG13 TRUNCONE (TUP (TUP CENTER1 160) (TUP CENTER2 160) (TUP RADIUS1 60) (TUP RADIUS2 30))
1 Exit ASSERT-IND? (DESC-TC)

(DESC-TC) 
1 Enter ASSERT-IND? CYL14 TRUNCONE (TUP (TUP CENTER1 160) (TUP CENTER2 200) (TUP RADIUS1 30) (TUP RADIUS2 30))
1 Exit ASSERT-IND? (CYLINDER)

(CYLINDER) 
1 Enter ASSERT-IND? CIRC15 TRUNCONE (TUP (TUP CENTER1 200) (TUP CENTER2 200) (TUP RADIUS1 30) (TUP RADIUS2 0))
1 Exit ASSERT-IND? (DESC-TC CIRCLE)

(DESC-TC CIRCLE) 
colab,tx,cn,rfe-l,fwi> consult feature-rules.rf
Consults a database to all known subsystems
colab,tx,cn,rfe-l,fwi> eval
Bottom-up-evaluation
Facts :
   truncone                        : (circ15 (tup (tup center1 200) (tup center2 200) (tup radius1 30) (tup radius2 0))) 
                                     (cyl14 (tup (tup center1 160) (tup center2 200) (tup radius1 30) (tup radius2 30))) 
                                     (rng13 (tup (tup center1 160) (tup center2 160) (tup radius1 60) (tup radius2 30))) 
                                     (cyl12 (tup (tup center1 140) (tup center2 160) (tup radius1 60) (tup radius2 60))) 
                                     (tr11 (tup (tup center1 130) (tup center2 140) (tup radius1 50) (tup radius2 60))) 
                                     (cyl10 (tup (tup center1 110) (tup center2 130) (tup radius1 50) (tup radius2 50))) 
                                     (rng9 (tup (tup center1 110) (tup center2 110) (tup radius1 60) (tup radius2 50))) 
                                     (cyl8 (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60))) 
                                     (rng7 (tup (tup center1 80) (tup center2 80) (tup radius1 40) (tup radius2 60))) 
                                     (cyl6 (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40))) 
                                     (rng5 (tup (tup center1 60) (tup center2 60) (tup radius1 20) (tup radius2 40))) 
                                     (cyl4 (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20))) 
                                     (rng3 (tup (tup center1 40) (tup center2 40) (tup radius1 30) (tup radius2 20))) 
                                     (cyl2 (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30))) 
                                     (circ1 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 30))) 
   asc-tc                          : (cyl14 (tup (tup center1 160) (tup center2 200) (tup radius1 30) (tup radius2 30))) 
                                     (cyl12 (tup (tup center1 140) (tup center2 160) (tup radius1 60) (tup radius2 60))) 
                                     (tr11 (tup (tup center1 130) (tup center2 140) (tup radius1 50) (tup radius2 60))) 
                                     (cyl10 (tup (tup center1 110) (tup center2 130) (tup radius1 50) (tup radius2 50))) 
                                     (cyl8 (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60))) 
                                     (rng7 (tup (tup center1 80) (tup center2 80) (tup radius1 40) (tup radius2 60))) 
                                     (cyl6 (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40))) 
                                     (rng5 (tup (tup center1 60) (tup center2 60) (tup radius1 20) (tup radius2 40))) 
                                     (cyl4 (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20))) 
                                     (cyl2 (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30))) 
                                     (circ1 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 30))) 
   desc-tc                         : (circ15 (tup (tup center1 200) (tup center2 200) (tup radius1 30) (tup radius2 0))) 
                                     (cyl14 (tup (tup center1 160) (tup center2 200) (tup radius1 30) (tup radius2 30))) 
                                     (rng13 (tup (tup center1 160) (tup center2 160) (tup radius1 60) (tup radius2 30))) 
                                     (cyl12 (tup (tup center1 140) (tup center2 160) (tup radius1 60) (tup radius2 60))) 
                                     (cyl10 (tup (tup center1 110) (tup center2 130) (tup radius1 50) (tup radius2 50))) 
                                     (rng9 (tup (tup center1 110) (tup center2 110) (tup radius1 60) (tup radius2 50))) 
                                     (cyl8 (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60))) 
                                     (cyl6 (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40))) 
                                     (cyl4 (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20))) 
                                     (rng3 (tup (tup center1 40) (tup center2 40) (tup radius1 30) (tup radius2 20))) 
                                     (cyl2 (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30))) 
   cylinder                        : (cyl14 (tup (tup center1 160) (tup center2 200) (tup radius1 30) (tup radius2 30))) 
                                     (cyl12 (tup (tup center1 140) (tup center2 160) (tup radius1 60) (tup radius2 60))) 
                                     (cyl10 (tup (tup center1 110) (tup center2 130) (tup radius1 50) (tup radius2 50))) 
                                     (cyl8 (tup (tup center1 80) (tup center2 110) (tup radius1 60) (tup radius2 60))) 
                                     (cyl6 (tup (tup center1 60) (tup center2 80) (tup radius1 40) (tup radius2 40))) 
                                     (cyl4 (tup (tup center1 40) (tup center2 60) (tup radius1 20) (tup radius2 20))) 
                                     (cyl2 (tup (tup center1 0) (tup center2 40) (tup radius1 30) (tup radius2 30))) 
   circle                          : (circ15 (tup (tup center1 200) (tup center2 200) (tup radius1 30) (tup radius2 0))) 
                                     (circ1 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 30))) 
   neighbor                        : (circ1 cyl2) 
                                     (cyl2 rng3) 
                                     (rng3 cyl4) 
                                     (cyl4 rng5) 
                                     (rng5 cyl6) 
                                     (cyl6 rng7) 
                                     (rng7 cyl8) 
                                     (cyl8 rng9) 
                                     (rng9 cyl10) 
                                     (cyl10 tr11) 
                                     (tr11 cyl12) 
                                     (cyl12 rng13) 
                                     (rng13 cyl14) 
                                     (cyl14 circ15) 
Rules :
   lnose                           : ((lnose (vari lnid) (inst (tup (tup ground (vari id2)) (tup flank (vari id1)) (tup leftmost (vari lsleft)) (tup rightmost (vari lsright))))) (((tc+lts+tc (vari featid) (tup (tup left (vari lnid)) (tup right (vari rnid)) (tup leftmost (vari id1)) (tup rightmost (vari id3))))) ((rnose (vari rnid) (inst (tup (tup ground (vari id2)) (tup flank (vari id3)) (tup leftmost (vari rsleft)) (tup rightmost (vari rsright))))) (is (vari featid) (make-instance-name tc+lts+tc (vari id1) (vari id2) (vari id3)))) 2) 3) 
   rnose                           : ((rnose (vari rnid) (inst (tup (tup ground (vari id2)) (tup flank (vari id3)) (tup leftmost (vari rsleft)) (tup rightmost (vari rsright))))) (((tc+lts+tc (vari featid) (tup (tup left (vari lnid)) (tup right (vari rnid)) (tup leftmost (vari id1)) (tup rightmost (vari id3))))) ((lnose (vari lnid) (inst (tup (tup ground (vari id2)) (tup flank (vari id1)) (tup leftmost (vari lsleft)) (tup rightmost (vari lsright))))) (is (vari featid) (make-instance-name tc+lts+tc (vari id1) (vari id2) (vari id3)))) 2) 3) 
   lshoulder                       : ((lshoulder (vari lshid) (inst (tup (tup ground (vari lsground)) (tup flank (vari lsflank)) (tup leftmost (vari lsleft)) (tup rightmost (vari right))))) (((longturningsurface (vari featid) (tup (tup radius (vari rad-max)) (tup leftmost (vari left)) (tup rightmost (vari right)) (tup sof (vari seq-of-feat))))) ((rshoulder (vari rshid) (inst (tup (tup ground (vari rs-ground)) (tup flank (vari rsflank)) (tup leftmost (vari left)) (tup rightmost (vari rsright))))) (sub-lts (vari rsright) (vari lsleft) (vari rad-max) (vari slsof)) (circle (vari leftm) (inst (tup (tup center1 (vari z1)) (tup center2 (vari z1)) (tup radius1 0) (tup radius2 (vari radb))))) (neighbor (vari leftm) (vari left)) (asc-tc (vari rsright) (inst (tup (tup center1 (vari azl)) (tup center2 (vari azr)) (tup radius1 (vari arada)) (tup radius2 (vari rad-max))))) (desc-tc (vari lsleft) (inst (tup (tup center1 (vari dzl)) (tup center2 (vari dzr)) (tup radius1 (vari rad-max)) (tup radius2 (vari dradb))))) (neighbor (vari right) (vari rightm)) (circle (vari rightm) (inst (tup (tup center1 (vari z2)) (tup center2 (vari z2)) (tup radius1 (vari rade)) (tup radius2 0)))) (append (inst (tup (vari rshid) | (vari slsof))) (inst (tup (vari lshid))) (vari seq-of-feat)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 3) 12) 
                                     ((lshoulder (vari lshid) (inst (tup (tup ground (vari ground)) (tup flank (vari flank)) (tup leftmost (vari lsleft)) (tup rightmost (vari right))))) (((longturningsurface (vari featid) (tup (tup radius (vari rad)) (tup leftmost (vari leftm)) (tup rightmost (vari right)) (tup sof (vari seq-of-feat))))) ((sub-lts (vari desc-tc) (vari lsleft) (vari rad) (vari slsof)) (circle (vari rightm) (inst (tup (tup center1 (vari z)) (tup center2 (vari z)) (tup radius1 (vari rad-lim)) (tup radius2 0)))) (neighbor (vari right) (vari rightm)) (desc-tc (vari desc-tc) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad1)) (tup radius2 (vari rad2))))) (neighbor (vari desc-tc) (vari leftm)) (> (vari rad1) (vari rad)) (append (vari slsof) (inst (tup (vari lshid))) (vari seq-of-feat)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 2) 4) 
                                     ((lshoulder (vari lshid) (inst (tup (tup ground (vari id2)) (tup flank (vari id1)) (tup leftmost (vari lsleft)) (tup rightmost (vari lsright))))) (((tc+lts+tc (vari featid) (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari id1)) (tup rightmost (vari id3))))) ((rshoulder (vari rshid) (inst (tup (tup ground (vari id2)) (tup flank (vari id3)) (tup leftmost (vari rsleft)) (tup rightmost (vari rsright))))) (is (vari featid) (make-instance-name tc+lts+tc (vari id1) (vari id2) (vari id3)))) 2) 2) 
   groove                          : ((groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari l)) (tup rightmost (vari r))))) (((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat))) ((sub-lts (vari left) (vari l) (vari rad-max) (vari seq-of-feat1)) (sub-lts (vari r) (vari right) (vari rad-max) (vari seq-of-feat2)) (append (vari seq-of-feat1) (inst (tup (vari grv) | (vari seq-of-feat2))) (vari seq-of-feat))) 3) 11) 
                                     ((groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari r)) (tup rightmost (vari right))))) (((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat))) ((sub-lts (vari left) (vari r) (vari rad-max) (vari sseq-of-feat)) (append (vari sseq-of-feat) (inst (tup (vari grv))) (vari seq-of-feat))) 2) 10) 
                                     ((groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari left)) (tup rightmost (vari r))))) (((sub-lts (vari left) (vari right) (vari rad-max) (tup (vari grv) | (vari seq-of-feat)))) ((sub-lts (vari r) (vari right) (vari rad-max) (vari seq-of-feat))) 2) 9) 
   cylinder                        : ((cylinder (vari cyl) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad-max)) (tup radius2 (vari rad-max))))) (((sub-lts (vari left) (vari right) (vari rad-max) (tup (vari cyl)))) ((neighbor (vari left) (vari cyl)) (neighbor (vari cyl) (vari right))) 0) 14) 
                                     ((cylinder (vari cyl) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad)) (tup radius2 (vari rad))))) (((longturningsurface (vari featid) (tup (tup radius (vari rad)) (tup leftmost (vari cyl)) (tup rightmost (vari cyl)) (tup sof (tup (vari cyl)))))) ((is (vari featid) (make-instance-name lts (vari cyl)))) 0) 13) 
   rshoulder                       : ((rshoulder (vari rshid) (inst (tup (tup ground (vari rs-ground)) (tup flank (vari rsflank)) (tup leftmost (vari left)) (tup rightmost (vari rsright))))) (((longturningsurface (vari featid) (tup (tup radius (vari rad-max)) (tup leftmost (vari left)) (tup rightmost (vari right)) (tup sof (vari seq-of-feat))))) ((sub-lts (vari rsright) (vari lsleft) (vari rad-max) (vari slsof)) (lshoulder (vari lshid) (inst (tup (tup ground (vari lsground)) (tup flank (vari lsflank)) (tup leftmost (vari lsleft)) (tup rightmost (vari right))))) (circle (vari leftm) (inst (tup (tup center1 (vari z1)) (tup center2 (vari z1)) (tup radius1 0) (tup radius2 (vari radb))))) (neighbor (vari leftm) (vari left)) (asc-tc (vari rsright) (inst (tup (tup center1 (vari azl)) (tup center2 (vari azr)) (tup radius1 (vari arada)) (tup radius2 (vari rad-max))))) (desc-tc (vari lsleft) (inst (tup (tup center1 (vari dzl)) (tup center2 (vari dzr)) (tup radius1 (vari rad-max)) (tup radius2 (vari dradb))))) (neighbor (vari right) (vari rightm)) (circle (vari rightm) (inst (tup (tup center1 (vari z2)) (tup center2 (vari z2)) (tup radius1 (vari rade)) (tup radius2 0)))) (append (inst (tup (vari rshid) | (vari slsof))) (inst (tup (vari lshid))) (vari seq-of-feat)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 3) 12) 
                                     ((rshoulder (vari rshid) (inst (tup (tup ground (vari ground)) (tup flank (vari flank)) (tup leftmost (vari left)) (tup rightmost (vari right))))) (((longturningsurface (vari featid) (tup (tup radius (vari rad)) (tup leftmost (vari left)) (tup rightmost (vari rightm)) (tup sof (tup (vari rshid) | (vari seq-of-feat)))))) ((sub-lts (vari right) (vari asc-tc) (vari rad) (vari seq-of-feat)) (circle (vari leftm) (inst (tup (tup center1 (vari z)) (tup center2 (vari z)) (tup radius1 0) (tup radius2 (vari rad-lim))))) (neighbor (vari leftm) (vari left)) (asc-tc (vari asc-tc) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad1)) (tup radius2 (vari rad2))))) (neighbor (vari rightm) (vari asc-tc)) (> (vari rad2) (vari rad)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 2) 5) 
                                     ((rshoulder (vari rshid) (inst (tup (tup ground (vari id2)) (tup flank (vari id3)) (tup leftmost (vari rsleft)) (tup rightmost (vari rsright))))) (((tc+lts+tc (vari featid) (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari id1)) (tup rightmost (vari id3))))) ((lshoulder (vari lshid) (inst (tup (tup ground (vari id2)) (tup flank (vari id1)) (tup leftmost (vari lsleft)) (tup rightmost (vari lsright))))) (is (vari featid) (make-instance-name tc+lts+tc (vari id1) (vari id2) (vari id3)))) 2) 2) 
   sub-lts                         : ((sub-lts (vari rsright) (vari lsleft) (vari rad-max) (vari slsof)) (((longturningsurface (vari featid) (tup (tup radius (vari rad-max)) (tup leftmost (vari left)) (tup rightmost (vari right)) (tup sof (vari seq-of-feat))))) ((rshoulder (vari rshid) (inst (tup (tup ground (vari rs-ground)) (tup flank (vari rsflank)) (tup leftmost (vari left)) (tup rightmost (vari rsright))))) (lshoulder (vari lshid) (inst (tup (tup ground (vari lsground)) (tup flank (vari lsflank)) (tup leftmost (vari lsleft)) (tup rightmost (vari right))))) (circle (vari leftm) (inst (tup (tup center1 (vari z1)) (tup center2 (vari z1)) (tup radius1 0) (tup radius2 (vari radb))))) (neighbor (vari leftm) (vari left)) (asc-tc (vari rsright) (inst (tup (tup center1 (vari azl)) (tup center2 (vari azr)) (tup radius1 (vari arada)) (tup radius2 (vari rad-max))))) (desc-tc (vari lsleft) (inst (tup (tup center1 (vari dzl)) (tup center2 (vari dzr)) (tup radius1 (vari rad-max)) (tup radius2 (vari dradb))))) (neighbor (vari right) (vari rightm)) (circle (vari rightm) (inst (tup (tup center1 (vari z2)) (tup center2 (vari z2)) (tup radius1 (vari rade)) (tup radius2 0)))) (append (inst (tup (vari rshid) | (vari slsof))) (inst (tup (vari lshid))) (vari seq-of-feat)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 3) 12) 
                                     ((sub-lts (vari r) (vari right) (vari rad-max) (vari seq-of-feat2)) (((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat))) ((sub-lts (vari left) (vari l) (vari rad-max) (vari seq-of-feat1)) (groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari l)) (tup rightmost (vari r))))) (append (vari seq-of-feat1) (inst (tup (vari grv) | (vari seq-of-feat2))) (vari seq-of-feat))) 3) 11) 
                                     ((sub-lts (vari left) (vari l) (vari rad-max) (vari seq-of-feat1)) (((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat))) ((groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari l)) (tup rightmost (vari r))))) (sub-lts (vari r) (vari right) (vari rad-max) (vari seq-of-feat2)) (append (vari seq-of-feat1) (inst (tup (vari grv) | (vari seq-of-feat2))) (vari seq-of-feat))) 3) 11) 
                                     ((sub-lts (vari left) (vari r) (vari rad-max) (vari sseq-of-feat)) (((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat))) ((groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari r)) (tup rightmost (vari right))))) (append (vari sseq-of-feat) (inst (tup (vari grv))) (vari seq-of-feat))) 2) 10) 
                                     ((sub-lts (vari r) (vari right) (vari rad-max) (vari seq-of-feat)) (((sub-lts (vari left) (vari right) (vari rad-max) (tup (vari grv) | (vari seq-of-feat)))) ((groove (vari grv) (inst (tup (tup left (vari lshid)) (tup right (vari rshid)) (tup leftmost (vari left)) (tup rightmost (vari r)))))) 2) 9) 
                                     ((sub-lts (vari desc-tc) (vari asc-tc) (vari rad-max) (vari seq-of-feat)) (((longturningsurface (vari featid) (tup (tup radius (vari rad-max)) (tup leftmost (vari leftm)) (tup rightmost (vari rightm)) (tup sof (vari seq-of-feat))))) ((desc-tc (vari desc-tc) (inst (tup (tup center1 (vari dzl)) (tup center2 (vari dzr)) (tup radius1 (vari drad1)) (tup radius2 (vari drad2))))) (asc-tc (vari asc-tc) (inst (tup (tup center1 (vari azl)) (tup center2 (vari azr)) (tup radius1 (vari arad1)) (tup radius2 (vari arad2))))) (> (vari azl) (vari dzr)) (< (vari drad2) (vari arad2)) (> (vari drad1) (vari arad1)) (neighbor (vari desc-tc) (vari leftm)) (neighbor (vari rightm) (vari asc-tc)) (< (vari rad-max) (max (vari drad1) (vari arad2))) (different (vari arad2) (vari drad1)) (different (vari leftm) (vari rightm)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 1) 8) 
                                     ((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat)) (((longturningsurface (vari featid) (tup (tup radius (vari rad-max)) (tup leftmost (vari leftm)) (tup rightmost (vari rightm)) (tup sof (vari seq-of-feat))))) ((circle (vari left) (inst (tup (tup center1 (vari z)) (tup center2 (vari z)) (tup radius1 0) (tup radius2 (vari radc))))) (asc-tc (vari right) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad1)) (tup radius2 (vari rad2))))) (> (vari rad2) (vari radc)) (neighbor (vari left) (vari leftm)) (neighbor (vari rightm) (vari right)) (>= (vari rad-max) (vari radc)) (< (vari rad-max) (vari rad2)) (different (vari leftm) (vari right)) (different (vari leftm) (vari rightm)) (is (vari featid) (make-instance-name lts (vari left) (vari rightm)))) 1) 7) 
                                     ((sub-lts (vari left) (vari right) (vari rad-max) (vari seq-of-feat)) (((longturningsurface (vari featid) (tup (tup radius (vari rad-max)) (tup leftmost (vari leftm)) (tup rightmost (vari rightm)) (tup sof (vari seq-of-feat))))) ((circle (vari right) (inst (tup (tup center1 (vari z)) (tup center2 (vari z)) (tup radius1 (vari radc)) (tup radius2 0)))) (desc-tc (vari left) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad1)) (tup radius2 (vari rad2))))) (> (vari rad1) (vari radc)) (neighbor (vari rightm) (vari right)) (neighbor (vari left) (vari leftm)) (>= (vari rad-max) (vari radc)) (> (vari rad1) (vari rad-max)) (different (vari right) (vari left)) (different (vari rightm) (vari leftm)) (is (vari featid) (make-instance-name lts (vari leftm) (vari right)))) 1) 6) 
                                     ((sub-lts (vari right) (vari asc-tc) (vari rad) (vari seq-of-feat)) (((longturningsurface (vari featid) (tup (tup radius (vari rad)) (tup leftmost (vari left)) (tup rightmost (vari rightm)) (tup sof (tup (vari rshid) | (vari seq-of-feat)))))) ((rshoulder (vari rshid) (inst (tup (tup ground (vari ground)) (tup flank (vari flank)) (tup leftmost (vari left)) (tup rightmost (vari right))))) (circle (vari leftm) (inst (tup (tup center1 (vari z)) (tup center2 (vari z)) (tup radius1 0) (tup radius2 (vari rad-lim))))) (neighbor (vari leftm) (vari left)) (asc-tc (vari asc-tc) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad1)) (tup radius2 (vari rad2))))) (neighbor (vari rightm) (vari asc-tc)) (> (vari rad2) (vari rad)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 2) 5) 
                                     ((sub-lts (vari desc-tc) (vari lsleft) (vari rad) (vari slsof)) (((longturningsurface (vari featid) (tup (tup radius (vari rad)) (tup leftmost (vari leftm)) (tup rightmost (vari right)) (tup sof (vari seq-of-feat))))) ((lshoulder (vari lshid) (inst (tup (tup ground (vari ground)) (tup flank (vari flank)) (tup leftmost (vari lsleft)) (tup rightmost (vari right))))) (circle (vari rightm) (inst (tup (tup center1 (vari z)) (tup center2 (vari z)) (tup radius1 (vari rad-lim)) (tup radius2 0)))) (neighbor (vari right) (vari rightm)) (desc-tc (vari desc-tc) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad1)) (tup radius2 (vari rad2))))) (neighbor (vari desc-tc) (vari leftm)) (> (vari rad1) (vari rad)) (append (vari slsof) (inst (tup (vari lshid))) (vari seq-of-feat)) (is (vari featid) (make-instance-name lts (vari leftm) (vari rightm)))) 2) 4) 
   longturningsurface              : ((longturningsurface (vari ltsid) (inst (tup (tup radius (vari rad-lts)) (tup leftmost (vari l)) (tup rightmost (vari r)) (tup sof (vari seq-of-feat))))) (((tc+lts (vari featid) (tup (tup ground (vari ltsid)) (tup flank (vari id2)) (tup leftmost (vari id2)) (tup rightmost (vari r))))) ((truncone (vari id2) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zl)) (tup radius1 (vari rado)) (tup radius2 (vari rad))))) (neighbor (vari id2) (vari l)) (is (vari featid) (make-instance-name tc+lts (vari id2) (vari ltsid)))) 1) 1) 
                                     ((longturningsurface (vari ltsid) (inst (tup (tup radius (vari rad-lts)) (tup leftmost (vari l)) (tup rightmost (vari r)) (tup sof (vari seq-of-feat))))) (((lts+tc (vari featid) (tup (tup ground (vari ltsid)) (tup flank (vari id2)) (tup leftmost (vari l)) (tup rightmost (vari id2))))) ((truncone (vari id2) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad)) (tup radius2 (vari rado))))) (neighbor (vari r) (vari id2)) (is (vari featid) (make-instance-name lts+tc (vari ltsid) (vari id2)))) 1) 0) 
   neighbor                        : ((neighbor (vari cyl) (vari right)) (((sub-lts (vari left) (vari right) (vari rad-max) (tup (vari cyl)))) ((neighbor (vari left) (vari cyl)) (cylinder (vari cyl) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad-max)) (tup radius2 (vari rad-max)))))) 0) 14) 
                                     ((neighbor (vari left) (vari cyl)) (((sub-lts (vari left) (vari right) (vari rad-max) (tup (vari cyl)))) ((cylinder (vari cyl) (inst (tup (tup center1 (vari zl)) (tup center2 (vari zr)) (tup radius1 (vari rad-max)) (tup radius2 (vari rad-max))))) (neighbor (vari cyl) (vari right))) 0) 14) 
1 Enter assert-ind? lts-cyl14 longturningsurface ((radius 30) (leftmost cyl14) (rightmost cyl14) (sof (tup cyl14)))
1 Exit assert-ind? (longturningsurface)
1 Enter assert-ind? lts-cyl12 longturningsurface ((radius 60) (leftmost cyl12) (rightmost cyl12) (sof (tup cyl12)))
1 Exit assert-ind? (longturningsurface)
1 Enter assert-ind? lts-cyl10 longturningsurface ((radius 50) (leftmost cyl10) (rightmost cyl10) (sof (tup cyl10)))
1 Exit assert-ind? (longturningsurface)
1 Enter assert-ind? lts-cyl8 longturningsurface ((radius 60) (leftmost cyl8) (rightmost cyl8) (sof (tup cyl8)))
1 Exit assert-ind? (longturningsurface)
1 Enter assert-ind? lts-cyl6 longturningsurface ((radius 40) (leftmost cyl6) (rightmost cyl6) (sof (tup cyl6)))
1 Exit assert-ind? (longturningsurface)
1 Enter assert-ind? lts-cyl4 longturningsurface ((radius 20) (leftmost cyl4) (rightmost cyl4) (sof (tup cyl4)))
1 Exit assert-ind? (longturningsurface)
1 Enter assert-ind? lts-cyl2 longturningsurface ((radius 30) (leftmost cyl2) (rightmost cyl2) (sof (tup cyl2)))
1 Exit assert-ind? (longturningsurface)
Difference 1 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : nil 
   sub-lts                         : (rng13 circ15 30 (tup cyl14)) 
                                     (tr11 rng13 60 (tup cyl12)) 
                                     (rng9 tr11 50 (tup cyl10)) 
                                     (rng7 rng9 60 (tup cyl8)) 
                                     (rng5 rng7 40 (tup cyl6)) 
                                     (rng3 rng5 20 (tup cyl4)) 
                                     (circ1 rng3 30 (tup cyl2)) 
   longturningsurface              : (lts-cyl2 (tup (tup radius 30) (tup leftmost cyl2) (tup rightmost cyl2) (tup sof (tup cyl2)))) 
                                     (lts-cyl4 (tup (tup radius 20) (tup leftmost cyl4) (tup rightmost cyl4) (tup sof (tup cyl4)))) 
                                     (lts-cyl6 (tup (tup radius 40) (tup leftmost cyl6) (tup rightmost cyl6) (tup sof (tup cyl6)))) 
                                     (lts-cyl8 (tup (tup radius 60) (tup leftmost cyl8) (tup rightmost cyl8) (tup sof (tup cyl8)))) 
                                     (lts-cyl10 (tup (tup radius 50) (tup leftmost cyl10) (tup rightmost cyl10) (tup sof (tup cyl10)))) 
                                     (lts-cyl12 (tup (tup radius 60) (tup leftmost cyl12) (tup rightmost cyl12) (tup sof (tup cyl12)))) 
                                     (lts-cyl14 (tup (tup radius 30) (tup leftmost cyl14) (tup rightmost cyl14) (tup sof (tup cyl14)))) 
   neighbor                        : nil 
1 Enter assert-ind? lts+tc-lts-cyl2-rng3 lts+tc ((ground lts-cyl2) (flank rng3) (leftmost cyl2) (rightmost rng3))
1 Exit assert-ind? (rnose)
1 Enter assert-ind? lts+tc-lts-cyl4-rng5 lts+tc ((ground lts-cyl4) (flank rng5) (leftmost cyl4) (rightmost rng5))
1 Exit assert-ind? (rshoulder)
1 Enter assert-ind? lts+tc-lts-cyl6-rng7 lts+tc ((ground lts-cyl6) (flank rng7) (leftmost cyl6) (rightmost rng7))
1 Exit assert-ind? (rshoulder)
1 Enter assert-ind? lts+tc-lts-cyl8-rng9 lts+tc ((ground lts-cyl8) (flank rng9) (leftmost cyl8) (rightmost rng9))
1 Exit assert-ind? (rnose)
1 Enter assert-ind? lts+tc-lts-cyl10-tr11 lts+tc ((ground lts-cyl10) (flank tr11) (leftmost cyl10) (rightmost tr11))
1 Exit assert-ind? (rshoulder)
1 Enter assert-ind? lts+tc-lts-cyl12-rng13 lts+tc ((ground lts-cyl12) (flank rng13) (leftmost cyl12) (rightmost rng13))
1 Exit assert-ind? (rnose)
1 Enter assert-ind? lts+tc-lts-cyl14-circ15 lts+tc ((ground lts-cyl14) (flank circ15) (leftmost cyl14) (rightmost circ15))
1 Exit assert-ind? (rnose)
1 Enter assert-ind? tc+lts-circ1-lts-cyl2 tc+lts ((ground lts-cyl2) (flank circ1) (leftmost circ1) (rightmost cyl2))
1 Exit assert-ind? (lnose)
1 Enter assert-ind? tc+lts-rng3-lts-cyl4 tc+lts ((ground lts-cyl4) (flank rng3) (leftmost rng3) (rightmost cyl4))
1 Exit assert-ind? (lshoulder)
1 Enter assert-ind? tc+lts-rng5-lts-cyl6 tc+lts ((ground lts-cyl6) (flank rng5) (leftmost rng5) (rightmost cyl6))
1 Exit assert-ind? (lnose)
1 Enter assert-ind? tc+lts-rng7-lts-cyl8 tc+lts ((ground lts-cyl8) (flank rng7) (leftmost rng7) (rightmost cyl8))
1 Exit assert-ind? (lnose)
1 Enter assert-ind? tc+lts-rng9-lts-cyl10 tc+lts ((ground lts-cyl10) (flank rng9) (leftmost rng9) (rightmost cyl10))
1 Exit assert-ind? (lshoulder)
1 Enter assert-ind? tc+lts-rng13-lts-cyl14 tc+lts ((ground lts-cyl14) (flank rng13) (leftmost rng13) (rightmost cyl14))
1 Exit assert-ind? (lshoulder)
Difference 2 : 
   lnose                           : (tc+lts-rng7-lts-cyl8 (tup (tup ground lts-cyl8) (tup flank rng7) (tup leftmost rng7) (tup rightmost cyl8))) 
                                     (tc+lts-rng5-lts-cyl6 (tup (tup ground lts-cyl6) (tup flank rng5) (tup leftmost rng5) (tup rightmost cyl6))) 
                                     (tc+lts-circ1-lts-cyl2 (tup (tup ground lts-cyl2) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl2))) 
   truncone                        : nil 
   rnose                           : (lts+tc-lts-cyl14-circ15 (tup (tup ground lts-cyl14) (tup flank circ15) (tup leftmost cyl14) (tup rightmost circ15))) 
                                     (lts+tc-lts-cyl12-rng13 (tup (tup ground lts-cyl12) (tup flank rng13) (tup leftmost cyl12) (tup rightmost rng13))) 
                                     (lts+tc-lts-cyl8-rng9 (tup (tup ground lts-cyl8) (tup flank rng9) (tup leftmost cyl8) (tup rightmost rng9))) 
                                     (lts+tc-lts-cyl2-rng3 (tup (tup ground lts-cyl2) (tup flank rng3) (tup leftmost cyl2) (tup rightmost rng3))) 
   lshoulder                       : (tc+lts-rng13-lts-cyl14 (tup (tup ground lts-cyl14) (tup flank rng13) (tup leftmost rng13) (tup rightmost cyl14))) 
                                     (tc+lts-rng9-lts-cyl10 (tup (tup ground lts-cyl10) (tup flank rng9) (tup leftmost rng9) (tup rightmost cyl10))) 
                                     (tc+lts-rng3-lts-cyl4 (tup (tup ground lts-cyl4) (tup flank rng3) (tup leftmost rng3) (tup rightmost cyl4))) 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : (lts+tc-lts-cyl10-tr11 (tup (tup ground lts-cyl10) (tup flank tr11) (tup leftmost cyl10) (tup rightmost tr11))) 
                                     (lts+tc-lts-cyl6-rng7 (tup (tup ground lts-cyl6) (tup flank rng7) (tup leftmost cyl6) (tup rightmost rng7))) 
                                     (lts+tc-lts-cyl4-rng5 (tup (tup ground lts-cyl4) (tup flank rng5) (tup leftmost cyl4) (tup rightmost rng5))) 
   circle                          : nil 
   lts+tc                          : (lts+tc-lts-cyl14-circ15 (tup (tup ground lts-cyl14) (tup flank circ15) (tup leftmost cyl14) (tup rightmost circ15))) 
                                     (lts+tc-lts-cyl12-rng13 (tup (tup ground lts-cyl12) (tup flank rng13) (tup leftmost cyl12) (tup rightmost rng13))) 
                                     (lts+tc-lts-cyl10-tr11 (tup (tup ground lts-cyl10) (tup flank tr11) (tup leftmost cyl10) (tup rightmost tr11))) 
                                     (lts+tc-lts-cyl8-rng9 (tup (tup ground lts-cyl8) (tup flank rng9) (tup leftmost cyl8) (tup rightmost rng9))) 
                                     (lts+tc-lts-cyl6-rng7 (tup (tup ground lts-cyl6) (tup flank rng7) (tup leftmost cyl6) (tup rightmost rng7))) 
                                     (lts+tc-lts-cyl4-rng5 (tup (tup ground lts-cyl4) (tup flank rng5) (tup leftmost cyl4) (tup rightmost rng5))) 
                                     (lts+tc-lts-cyl2-rng3 (tup (tup ground lts-cyl2) (tup flank rng3) (tup leftmost cyl2) (tup rightmost rng3))) 
   tc+lts                          : (tc+lts-rng13-lts-cyl14 (tup (tup ground lts-cyl14) (tup flank rng13) (tup leftmost rng13) (tup rightmost cyl14))) 
                                     (tc+lts-rng9-lts-cyl10 (tup (tup ground lts-cyl10) (tup flank rng9) (tup leftmost rng9) (tup rightmost cyl10))) 
                                     (tc+lts-rng7-lts-cyl8 (tup (tup ground lts-cyl8) (tup flank rng7) (tup leftmost rng7) (tup rightmost cyl8))) 
                                     (tc+lts-rng5-lts-cyl6 (tup (tup ground lts-cyl6) (tup flank rng5) (tup leftmost rng5) (tup rightmost cyl6))) 
                                     (tc+lts-rng3-lts-cyl4 (tup (tup ground lts-cyl4) (tup flank rng3) (tup leftmost rng3) (tup rightmost cyl4))) 
                                     (tc+lts-circ1-lts-cyl2 (tup (tup ground lts-cyl2) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl2))) 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
1 Enter assert-ind? tc+lts+tc-rng9-lts-cyl10-tr11 tc+lts+tc ((left tc+lts-rng9-lts-cyl10) (right lts+tc-lts-cyl10-tr11) (leftmost rng9) (rightmost tr11))
1 Exit assert-ind? (groove)
1 Enter assert-ind? tc+lts+tc-rng3-lts-cyl4-rng5 tc+lts+tc ((left tc+lts-rng3-lts-cyl4) (right lts+tc-lts-cyl4-rng5) (leftmost rng3) (rightmost rng5))
1 Exit assert-ind? (groove)
1 Enter assert-ind? tc+lts+tc-rng7-lts-cyl8-rng9 tc+lts+tc ((left tc+lts-rng7-lts-cyl8) (right lts+tc-lts-cyl8-rng9) (leftmost rng7) (rightmost rng9))
1 Exit assert-ind? (tc+lts+tc)
1 Enter assert-ind? tc+lts+tc-circ1-lts-cyl2-rng3 tc+lts+tc ((left tc+lts-circ1-lts-cyl2) (right lts+tc-lts-cyl2-rng3) (leftmost circ1) (rightmost rng3))
1 Exit assert-ind? (tc+lts+tc)
Difference 3 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : (tc+lts+tc-rng3-lts-cyl4-rng5 (tup (tup left tc+lts-rng3-lts-cyl4) (tup right lts+tc-lts-cyl4-rng5) (tup leftmost rng3) (tup rightmost rng5))) 
                                     (tc+lts+tc-rng9-lts-cyl10-tr11 (tup (tup left tc+lts-rng9-lts-cyl10) (tup right lts+tc-lts-cyl10-tr11) (tup leftmost rng9) (tup rightmost tr11))) 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : (tc+lts+tc-circ1-lts-cyl2-rng3 (tup (tup left tc+lts-circ1-lts-cyl2) (tup right lts+tc-lts-cyl2-rng3) (tup leftmost circ1) (tup rightmost rng3))) 
                                     (tc+lts+tc-rng7-lts-cyl8-rng9 (tup (tup left tc+lts-rng7-lts-cyl8) (tup right lts+tc-lts-cyl8-rng9) (tup leftmost rng7) (tup rightmost rng9))) 
                                     (tc+lts+tc-rng3-lts-cyl4-rng5 (tup (tup left tc+lts-rng3-lts-cyl4) (tup right lts+tc-lts-cyl4-rng5) (tup leftmost rng3) (tup rightmost rng5))) 
                                     (tc+lts+tc-rng9-lts-cyl10-tr11 (tup (tup left tc+lts-rng9-lts-cyl10) (tup right lts+tc-lts-cyl10-tr11) (tup leftmost rng9) (tup rightmost tr11))) 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
Difference 4 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : nil 
   sub-lts                         : (rng3 rng7 40 (tup tc+lts+tc-rng3-lts-cyl4-rng5 cyl6)) 
                                     (rng9 rng13 60 (tup tc+lts+tc-rng9-lts-cyl10-tr11 cyl12)) 
                                     (circ1 rng5 30 (tup cyl2 tc+lts+tc-rng3-lts-cyl4-rng5)) 
                                     (rng7 tr11 60 (tup cyl8 tc+lts+tc-rng9-lts-cyl10-tr11)) 
                                     (rng7 rng13 60 (tup cyl8 tc+lts+tc-rng9-lts-cyl10-tr11 cyl12)) 
   longturningsurface              : nil 
   neighbor                        : nil 
1 Enter assert-ind? lts-circ1-cyl4 longturningsurface ((radius 30) (leftmost cyl2) (rightmost cyl4) (sof (tup cyl2 tc+lts+tc-rng3-lts-cyl4-rng5)))
1 Exit assert-ind? (longturningsurface)
Difference 5 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : (lts-circ1-cyl4 (tup (tup radius 30) (tup leftmost cyl2) (tup rightmost cyl4) (tup sof (tup cyl2 tc+lts+tc-rng3-lts-cyl4-rng5)))) 
   neighbor                        : nil 
1 Enter assert-ind? lts+tc-lts-circ1-cyl4-rng5 lts+tc ((ground lts-circ1-cyl4) (flank rng5) (leftmost cyl2) (rightmost rng5))
1 Exit assert-ind? (rshoulder)
1 Enter assert-ind? tc+lts-circ1-lts-circ1-cyl4 tc+lts ((ground lts-circ1-cyl4) (flank circ1) (leftmost circ1) (rightmost cyl4))
1 Exit assert-ind? (lnose)
Difference 6 : 
   lnose                           : (tc+lts-circ1-lts-circ1-cyl4 (tup (tup ground lts-circ1-cyl4) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl4))) 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : (lts+tc-lts-circ1-cyl4-rng5 (tup (tup ground lts-circ1-cyl4) (tup flank rng5) (tup leftmost cyl2) (tup rightmost rng5))) 
   circle                          : nil 
   lts+tc                          : (lts+tc-lts-circ1-cyl4-rng5 (tup (tup ground lts-circ1-cyl4) (tup flank rng5) (tup leftmost cyl2) (tup rightmost rng5))) 
   tc+lts                          : (tc+lts-circ1-lts-circ1-cyl4 (tup (tup ground lts-circ1-cyl4) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl4))) 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
1 Enter assert-ind? lts-circ1-cyl6 longturningsurface ((radius 40) (leftmost cyl2) (rightmost cyl6) (sof (tup lts+tc-lts-circ1-cyl4-rng5 cyl6)))
1 Exit assert-ind? (longturningsurface)
Difference 7 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : (lts-circ1-cyl6 (tup (tup radius 40) (tup leftmost cyl2) (tup rightmost cyl6) (tup sof (tup lts+tc-lts-circ1-cyl4-rng5 cyl6)))) 
   neighbor                        : nil 
1 Enter assert-ind? lts+tc-lts-circ1-cyl6-rng7 lts+tc ((ground lts-circ1-cyl6) (flank rng7) (leftmost cyl2) (rightmost rng7))
1 Exit assert-ind? (rshoulder)
1 Enter assert-ind? tc+lts-circ1-lts-circ1-cyl6 tc+lts ((ground lts-circ1-cyl6) (flank circ1) (leftmost circ1) (rightmost cyl6))
1 Exit assert-ind? (lnose)
Difference 8 : 
   lnose                           : (tc+lts-circ1-lts-circ1-cyl6 (tup (tup ground lts-circ1-cyl6) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl6))) 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : (lts+tc-lts-circ1-cyl6-rng7 (tup (tup ground lts-circ1-cyl6) (tup flank rng7) (tup leftmost cyl2) (tup rightmost rng7))) 
   circle                          : nil 
   lts+tc                          : (lts+tc-lts-circ1-cyl6-rng7 (tup (tup ground lts-circ1-cyl6) (tup flank rng7) (tup leftmost cyl2) (tup rightmost rng7))) 
   tc+lts                          : (tc+lts-circ1-lts-circ1-cyl6 (tup (tup ground lts-circ1-cyl6) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl6))) 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
1 Enter assert-ind? lts-circ1-circ15 longturningsurface ((radius 60) (leftmost cyl2) (rightmost cyl14) (sof (tup lts+tc-lts-circ1-cyl6-rng7 cyl8 tc+lts+tc-rng9-lts-cyl10-tr11 cyl12 tc+lts-rng13-lts-cyl14)))
1 Exit assert-ind? (longturningsurface)
Difference 9 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : (lts-circ1-circ15 (tup (tup radius 60) (tup leftmost cyl2) (tup rightmost cyl14) (tup sof (tup lts+tc-lts-circ1-cyl6-rng7 cyl8 tc+lts+tc-rng9-lts-cyl10-tr11 cyl12 tc+lts-rng13-lts-cyl14)))) 
   neighbor                        : nil 
1 Enter assert-ind? lts+tc-lts-circ1-circ15-circ15 lts+tc ((ground lts-circ1-circ15) (flank circ15) (leftmost cyl2) (rightmost circ15))
1 Exit assert-ind? (rnose)
1 Enter assert-ind? tc+lts-circ1-lts-circ1-circ15 tc+lts ((ground lts-circ1-circ15) (flank circ1) (leftmost circ1) (rightmost cyl14))
1 Exit assert-ind? (lnose)
Difference 10 : 
   lnose                           : (tc+lts-circ1-lts-circ1-circ15 (tup (tup ground lts-circ1-circ15) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl14))) 
   truncone                        : nil 
   rnose                           : (lts+tc-lts-circ1-circ15-circ15 (tup (tup ground lts-circ1-circ15) (tup flank circ15) (tup leftmost cyl2) (tup rightmost circ15))) 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : (lts+tc-lts-circ1-circ15-circ15 (tup (tup ground lts-circ1-circ15) (tup flank circ15) (tup leftmost cyl2) (tup rightmost circ15))) 
   tc+lts                          : (tc+lts-circ1-lts-circ1-circ15 (tup (tup ground lts-circ1-circ15) (tup flank circ1) (tup leftmost circ1) (tup rightmost cyl14))) 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
1 Enter assert-ind? tc+lts+tc-circ1-lts-circ1-circ15-circ15 tc+lts+tc ((left tc+lts-circ1-lts-circ1-circ15) (right lts+tc-lts-circ1-circ15-circ15) (leftmost circ1) (rightmost circ15))
1 Exit assert-ind? (workpiece)
Difference 11 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : (tc+lts+tc-circ1-lts-circ1-circ15-circ15 (tup (tup left tc+lts-circ1-lts-circ1-circ15) (tup right lts+tc-lts-circ1-circ15-circ15) (tup leftmost circ1) (tup rightmost circ15))) 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
Difference 12 : 
   lnose                           : nil 
   truncone                        : nil 
   rnose                           : nil 
   lshoulder                       : nil 
   asc-tc                          : nil 
   desc-tc                         : nil 
   groove                          : nil 
   cylinder                        : nil 
   rshoulder                       : nil 
   circle                          : nil 
   lts+tc                          : nil 
   tc+lts                          : nil 
   tc+lts+tc                       : nil 
   sub-lts                         : nil 
   longturningsurface              : nil 
   neighbor                        : nil 
colab,tx,cn,rfe-l,fwi> tx nospy assert-ind?
Call subsystem taxon with rest of arguments
untrace classify, assert-ind?, concept-closure
colab,tx,cn,rfe-l,fwi> taxon
Taxon Subsystem Switch
colab,tx> instances workpiece
compute a list of all instances of <concept term>

(TC+LTS+TC-CIRC1-LTS-CIRC1-CIRC15-CIRC15) 
colab,tx> iaw
initialize window for abox presentation
Only available under Symbolics CL

colab,tx> daw workpiece
<individual>+; present assertions concerning the individuals
Only available under Symbolics CL

colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> nospy
Unset trace mode
colab,tx,fwi> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,rfe-l> (decplan)
;;; GC: 793978 words [3175912 bytes] of dynamic storage in use.
;;; 369284 words [1477136 bytes] of free storage available before a GC.
;;; 1532546 words [6130184 bytes] of free storage available if GC is disabled.
-----------contax-call--------------
roughing contour high-alloy-steel right 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prr30))

-----------contax-call--------------
roughing contour high-alloy-steel left 90 90 
-----------contax-result------------`(tup (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30))

`(tup
  skp
  (tup dir both)
  (tup kind contour)
  (tup
   s/d
   (tup
    actions
    (tup
     (tup tool rcmx tmaxp-prr30)
     (tup right contour (tup geo (tup p 40 0) (tup p 40 80) (tup p 60 80)))
     (tup right contour (tup geo (tup p 30 0) (tup p 30 60) (tup p 40 60)))
     (tup
      right
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup
      right
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) ) )
    (tup
     (tup tool rcmx tmaxp-prl40)
     (tup
      left
      contour
      (tup geo (tup p 60 110) (tup p 50 110) (tup p 50 130) (tup p 60 140)) )
     (tup
      left
      contour
      (tup geo (tup p 30 40) (tup p 20 40) (tup p 20 60) (tup p 30 60)) )
     (tup left contour (tup geo (tup p 60 160) (tup p 30 160) (tup p 30 200))) ) )
   (tup actions) ) )

More solutions?  (Y/N) n

colab,tx,fwi,rfe-l
> 
batchjob done...
colab,tx,fwi,rfe-l> colab,tx,fwi,rfe-l> 
colab,tx,fwi,rfe-l> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> exec start          pwd
Print the current directory
Current Pathname is #P"/home.arctecserv-2a/ctec/colab1/top/demo/decplan/"
colab> cd /home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc
Change directory
Current Pathname is #P"/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/"
colab> exec start
Executes a batch file
batchjob executing...
colab> taxon
Taxon Subsystem Switch
colab,tx> contax
Contax Subsystem Switch
colab,tx,cn> forward
Forward Subsystem Switch
colab,tx,cn,fwi> colab
Colab System Switch
colab> destroy
Destroy the databases of all known subsystems

T 
CONTAX constraints reset.
CONTAX variables reset.
CONTAX concepts reset.
CONTAX has been reset.
colab> taxon
Taxon Subsystem Switch
colab,tx> consult micro2.tx
Consults a database to all known subsystems

Warning -- second definition of = is ignored!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!

Open Family LEVELS-OF-COMPOSITION still exists -- it will be extended!
colab,tx> switch reduced-abox t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> filter
filter subsumption graph
colab,tx> switch filtered-graph t
filtered-graph|reduced-abox|draw-all|draw-bottom|show -- t | nil

T 
colab,tx> forward
Forward Subsystem Switch
colab,tx,fwi> automatic
Activate automatic mode
colab,tx,fwi> consult wp-mcad2nc.rf
Consults a database to all known subsystems

(ASC-CIRCLE) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(ASC-TC) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(DESC-RING) 
(CYLINDER) 
(ASC-RING) 
(CYLINDER) 
(DESC-CIRCLE) 
colab,tx,fwi> consult tx-parts-emul.rf
Consults a database to all known subsystems
colab,tx,fwi> replace-strategies  tx-additions.rf
Replace the strategies
; Reading file "/home.arctecserv-2a/ctec/colab1/top/demo/mcad2nc/tx-additions.rf" ..
colab,tx,fwi> compile-strategies
Compile the actual strategies
colab,tx,fwi> fw-compile
Compile all databases
colab,tx,fwi> contax
Contax Subsystem Switch
colab,tx,fwi,cn> consult tools.ctx
Consults a database to all known subsystems
colab,tx,fwi,cn> consult constdef.lisp
Consults a database to all known subsystems
colab,tx,fwi,cn> rfe
Relfun Emulator Subsystem Switch
colab,tx,fwi,cn,rfe-l> consult library
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult class-feat
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult rng2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult feat2p
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult skeletal
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult anc-program
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult demo
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> consult examples
Consults a database to all known subsystems
colab,tx,fwi,cn,rfe-l> compile
compile relfun database
;;; GC: 883832 words [3535328 bytes] of dynamic storage in use.
;;; 279430 words [1117720 bytes] of free storage available before a GC.
;;; 1442692 words [5770768 bytes] of free storage available if GC is disabled.
;;; Expanding Dynamic Memory
colab,tx,fwi,cn,rfe-l> (init-tool-sel)
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.
true

More solutions?  (Y/N) n

colab,tx,fwi,cn,rfe-l> forward
Forward Subsystem Switch
colab,tx,fwi> fw-emul
Forward emulator mode
colab,tx,fwe> rf-query (show-demo)
Query to the RELFUN subsystem

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl45
 (tup (tup radius 25) (tup leftmost cyl45) (tup rightmost cyl45)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl43
 (tup (tup radius 20) (tup leftmost cyl43) (tup rightmost cyl43)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl41
 (tup (tup radius 30) (tup leftmost cyl41) (tup rightmost cyl41)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl39
 (tup (tup radius 40) (tup leftmost cyl39) (tup rightmost cyl39)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 tr38
 (tup (tup center1 50) (tup center2 60) (tup radius1 25) (tup radius2 40)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl36
 (tup (tup radius 20) (tup leftmost cyl36) (tup rightmost cyl36)) )

"Derived Fact asserted into TAXON ABox:"
(desc-tc
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(longturningsurface
 lts-cyl34
 (tup (tup radius 25) (tup leftmost cyl34) (tup rightmost cyl34)) )

"Derived Fact asserted into TAXON ABox:"
(asc-tc
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ46
 (tup (tup center1 150) (tup center2 150) (tup radius1 25) (tup radius2 0)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng44
 (tup (tup center1 120) (tup center2 120) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl43-rng44
 (tup
  (tup ground lts-cyl43)
  (tup flank rng44)
  (tup leftmost cyl43)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng42-lts-cyl43
 (tup
  (tup ground lts-cyl43)
  (tup flank rng42)
  (tup leftmost rng42)
  (tup rightmost cyl43) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng42
 (tup (tup center1 110) (tup center2 110) (tup radius1 30) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng40-lts-cyl41
 (tup
  (tup ground lts-cyl41)
  (tup flank rng40)
  (tup leftmost rng40)
  (tup rightmost cyl41) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng40
 (tup (tup center1 70) (tup center2 70) (tup radius1 40) (tup radius2 30)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng37
 (tup (tup center1 50) (tup center2 50) (tup radius1 20) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-lts-cyl36-rng37
 (tup
  (tup ground lts-cyl36)
  (tup flank rng37)
  (tup leftmost cyl36)
  (tup rightmost rng37) ) )

"Derived Fact asserted into TAXON ABox:"
(shoulder
 shoulder-rng35-lts-cyl36
 (tup
  (tup ground lts-cyl36)
  (tup flank rng35)
  (tup leftmost rng35)
  (tup rightmost cyl36) ) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 rng35
 (tup (tup center1 40) (tup center2 40) (tup radius1 25) (tup radius2 20)) )

"Derived Fact asserted into TAXON ABox:"
(truncone
 circ33
 (tup (tup center1 0) (tup center2 0) (tup radius1 0) (tup radius2 25)) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng42-lts-cyl43-rng44
 (tup
  (tup leftflank rng42)
  (tup ground lts-cyl43)
  (tup rightflank rng44)
  (tup leftmost rng42)
  (tup rightmost rng44) ) )

"Derived Fact asserted into TAXON ABox:"
(groove
 groove-rng35-lts-cyl36-rng37
 (tup
  (tup leftflank rng35)
  (tup ground lts-cyl36)
  (tup rightflank rng37)
  (tup leftmost rng35)
  (tup rightmost rng37) ) )


------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



constructing classified workpiece ...


classified workpiece:

(cwp
 40
 (tup
  (nft
   (lsh (flk (tup (p 70 40) (p 70 30))) (grd (tup (p 70 30) (p 110 30))))
   (tup) )
  (nft
   (grv
    (flk (tup (p 110 30) (p 110 20)))
    (grd (tup (p 110 20) (p 120 20)))
    (flk (tup (p 120 20) (p 120 25))) )
   (tup) )
  (nft
   (grv
    (flk (tup (p 40 25) (p 40 20)))
    (grd (tup (p 40 20) (p 50 20)))
    (flk (tup (p 50 20) (p 50 25))) )
   (tup) ) ) )




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y


contax tool selection:
  arguments: roughing high-alloy-steel normal 0 90 left
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdl93) (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30) (tup tnmm-71 tmaxp-ptl90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 right
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdr93) (tup rcmx tmaxp-prr30) (tup tnmm-71 tmaxp-ptr90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 left
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdl93) (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30) (tup tnmm-71 tmaxp-ptl90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 right
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdr93) (tup rcmx tmaxp-prr30) (tup tnmm-71 tmaxp-ptr90))
end.

contax tool selection:
  arguments: roughing high-alloy-steel normal 90 90 left
  propagating...
contax initialization:
  creating constraint variables...
  creating constraint instances...
  initializing hac datastructures...
;;; Warning: You are still using HAC, which is absolutely not necessary.
ok.

  results: (tup (tup dnmm-71 tmaxp-pdl93) (tup rcmx tmaxp-prl40) (tup rcmx tmaxp-prl30) (tup tnmm-71 tmaxp-ptl90))
end.


skeletal plan:

(skp
 40
 (com
  (tup
   (alt
    (tup
     (roughing
      (tool dnmm-71 tmaxp-pdl93)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
     (roughing
      (tool rcmx tmaxp-prl40)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
     (roughing
      (tool rcmx tmaxp-prl30)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
     (roughing
      (tool tnmm-71 tmaxp-ptl90)
      left
      (geo (tup (p 70 40) (p 70 30) (p 110 30))) ) ) )
   (alt
    (tup
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) ) ) )
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) ) ) ) ) )
   (alt
    (tup
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) ) ) )
     (seq
      (tup
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdr93)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prr30)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptr90)
          right
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) )
       (alt
        (tup
         (roughing
          (tool dnmm-71 tmaxp-pdl93)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl40)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool rcmx tmaxp-prl30)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
         (roughing
          (tool tnmm-71 tmaxp-ptl90)
          left
          (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) ) ) ) ) ) ) ) )




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



qualitative simulation:

(tup
 (roughing
  (tool dnmm-71 tmaxp-pdl93)
  left
  (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
 (roughing
  (tool dnmm-71 tmaxp-pdl93)
  left
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool dnmm-71 tmaxp-pdl93)
  left
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
4.4->
(skp
 40
 (com
  (tup
   (alt
    (tup
     (roughing
      (tool dnmm-71 tmaxp-pdr93)
      right
      (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
     (roughing
      (tool rcmx tmaxp-prr30)
      right
      (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
     (roughing
      (tool tnmm-71 tmaxp-ptr90)
      right
      (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) ) ) )
   (alt
    (tup
     (roughing
      (tool dnmm-71 tmaxp-pdr93)
      right
      (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
     (roughing
      (tool rcmx tmaxp-prr30)
      right
      (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
     (roughing
      (tool tnmm-71 tmaxp-ptr90)
      right
      (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) ) ) ) ) )


(tup
 (roughing
  (tool dnmm-71 tmaxp-pdr93)
  right
  (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
 (roughing
  (tool dnmm-71 tmaxp-pdr93)
  right
  (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )
2.0->
(skp 40 (tup))




------------------------------BREAK--------------------------------


    Continue? (Please type Y)  y



anc-program:

`(tup
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 70 40) (p 70 30) (p 110 30))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdl93)
   left
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdr93)
   right
   (geo (tup (p 110 30) (p 110 20) (p 120 20) (p 120 25))) )
  (roughing
   (tool dnmm-71 tmaxp-pdr93)
   right
   (geo (tup (p 40 25) (p 40 20) (p 50 20) (p 50 25))) ) )

More solutions?  (Y/N) n

batchjob done...
colab,tx,fwe> quit
forward: unknown user command (QUIT)
colab,tx,fwe> lisp quit
Eval expression
>>Error: The symbol QUIT has no global value

SYMBOL-VALUE:
   Required arg 0 (S): QUIT
:C  0: Try evaluating QUIT again
:A  1: Abort to Lisp Top Level

-> (quit)
ctec@arctecserv-2: exit

exit

script done on Tue Dec  8 08:50:27 1992
