sfahlman / scone Goto Github PK

$ cat ./Release-Notes.txt | grep version
This (1.0.0) is the first version released to external users via
GitHub.  Older versions are still available, but will be migrated to
version -- a cut-and-paste error, now fixed.

* $ sbcl --version
SBCL 2.0.1.debian

$ sbcl

* (load-kb "core")

*  (new-indv {Clyde} {elephant})  
{Clyde}
* (new-is-a {Clyde} {elephant})
{Is-A 0-2600}
* (new-indv {Ernie} {elephant})
{Ernie}
* (new-relation {hates} :a-inst-of {animal} :b-inst-of {animal})
{hates}
* (new-statement {Clyde} {hates} {Ernie})
{hates 0-2606}
* (new-split '({bird} {reptile} {mammal}))
{Split 0-2607}
* (new-complete-split {person} '({male} {female}))
{C-Split 0-2608}
* (new-complete-split {person} '({child} {adolescent} {adult}))
{adolescent} is unknown.  Defining it as a type under {undefined thing}.
{C-Split 0-2609}
* (new-complete-split {vertebrate} '({fish} {amphibian} {reptile} {bird} {mammal})
^C
debugger invoked on a SB-SYS:INTERACTIVE-INTERRUPT in thread
#<THREAD "main thread" RUNNING {1000560083}>:
  Interactive interrupt at #x7F90586F6AFF.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] Return from SB-UNIX:SIGINT.
  1: [ABORT   ] Exit debugger, returning to top level.

("bogus stack frame")
0] 1
* (type-node? {vetebrate})
NIL
* (type-node? {fish})
T
* (node? {vertebrate})
T
* (show-ontology)

[...]

* (type-node? {vertebrate})
T
* (node? {vertebrate})
T
* (new-split '({bird} {reptile} {mammal}))
{Split 0-2611}
* (new-complete-split {person} '({child} {adolescent} {adult}))
{C-Split 0-2612}
* (new-complete-split {vertebrate} '({fish} {amphibian} {reptile} {bird} {mammal})
^C
debugger invoked on a SB-SYS:INTERACTIVE-INTERRUPT in thread
#<THREAD "main thread" RUNNING {1000560083}>:
  Interactive interrupt at #x7F90586F6AFF.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] Return from SB-UNIX:SIGINT.
  1: [ABORT   ] Exit debugger, returning to top level.

("bogus stack frame")
0] 1
* 

  (let ((this-element (lookup-element iname)))
    (when (eq (parent-wire this-element) *undefined-thing*)