From: Mario R. R. <rio...@us...> - 2012-09-08 07:33:47
|
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "Maxima, A Computer Algebra System". The branch, master has been updated via d1c7ba16312a49069c5f2a03691b5fe38c942ed3 (commit) from 663a0e051e22ae3d0094cfa350a863832cc87c95 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit d1c7ba16312a49069c5f2a03691b5fe38c942ed3 Author: Mario Rodriguez <rio...@us...> Date: Sat Sep 8 09:33:30 2012 +0200 Add function title_inference diff --git a/share/stats/inference_result.lisp b/share/stats/inference_result.lisp index 392d0ff..75c0469 100644 --- a/share/stats/inference_result.lisp +++ b/share/stats/inference_result.lisp @@ -1,6 +1,6 @@ ;; COPYRIGHT NOTICE ;; -;; Copyright (C) 2006 Mario Rodriguez Riotorto +;; Copyright (C) 2006-2012 Mario Rodriguez Riotorto ;; ;; This program is free software; you can redistribute ;; it and/or modify it under the terms of the @@ -21,7 +21,6 @@ ;; For questions, suggestions, bugs and the like, feel free ;; to contact me at ;; mario @@@ edu DOT xunta DOT es -;; www.biomates.net (in-package :maxima) @@ -211,3 +210,11 @@ (merror "Wrong label in 'take_inference' call") (caddr (nth m (cdaddr obj))))))) (merror "Wrong object in 'take_inference' call") )) + + +;; Returns the title of the 'inference_result' object +(defun $title_inference (obj) + (if ($inferencep obj) + (second obj) + (merror "Wrong object in 'title_inference' call")) ) + ----------------------------------------------------------------------- Summary of changes: share/stats/inference_result.lisp | 11 +++++++++-- 1 files changed, 9 insertions(+), 2 deletions(-) hooks/post-receive -- Maxima, A Computer Algebra System |