[Maxima-bugs] [ maxima-Bugs-1602849 ] apropos

[SourceForge.net <no...@so...>]

Bugs item #1602849, was opened at 2006-11-25 15:09
Message generated for change (Comment added) made by robert_dodier
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1602849&group_id=4933

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
>Category: Lisp Core
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Barton Willis (willisbl)
Assigned to: Nobody/Anonymous (nobody)
Summary: apropos 

Initial Comment:
The use documentation for 'apropos' says the input
should be a string. That's not right:

(%i20) apropos("rat");
(%o20) [rat]
(%i21) apropos(rat);
(%o21) [rat, ...,ratwtlvl]

Alos, apropos should quote its argument:

(%i22) apropos(float)
(%o22) [false,nill,punt-nil,punt-nil-warnp] <-- not expected

(%i23) apropos('float);
(%o23)[float,...,dconv-$float] <-- expected

Finally, when the input to apropos isn't a Maxima
function or option variable, we get sillyness such
as

(%i28) apropos('larry);
(%o28) [larry]  <-- There isn't a function "larry"

apropos(42);
(%o35) [*,**, ... ] <-- might be useful, but...

Barton

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

>Comment By: Robert Dodier (robert_dodier)
Date: 2006-12-26 15:42

Message:
Logged In: YES 
user_id=501686
Originator: NO

I'm not all that crazy about apropos -- I wouldn't mind if we just cut it
-- but if we do keep it I think it should give some indication of the type
of an object. E.g. function vs variable, Lisp vs Maxima, built-in vs
user-defined, maybe other categorizations.


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

Comment By: Barton Willis (willisbl)
Date: 2006-11-25 23:53

Message:
Logged In: YES 
user_id=895922
Originator: YES

The first version gives lisp error for apropos(a+b). Let's try:

(defmspec $apropos (s)
  (let ((acc nil))
    (setq s (margs s))
    (dolist (si s ($listify ($setify (cons '(mlist) acc))))
      (setq si (if (op-equalp si 'mquote) (second si) si))
      (if (symbolp si) (setq acc (append acc (apropos-list (amperchk si)
:maxima)))))))

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

Comment By: Barton Willis (willisbl)
Date: 2006-11-25 19:40

Message:
Logged In: YES 
user_id=895922
Originator: YES

Proposed replacement:

(defmspec $apropos (s)
  (let ((acc nil))
    (setq s (margs s))
    (dolist (si s ($listify ($setify (cons '(mlist) acc))))
      (setq si (amperchk (if (op-equalp si 'mquote) (second si) si)))
      (if (symbolp si) (setq acc (append acc (apropos-list si
:maxima)))))))

   

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1602849&group_id=4933