(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

;; @lisp 函数库帮助与支持，查询的函数均以 ui:confirm1 为示例 (fun:list) ;; 列出所有@lisp函数 (fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码 (fun:search "ui:");; 搜索函数库中 ui: 相关的函数 (fun:run-example funname) ;; 如果函数有示例代码，则运行示例 (fun:e.g funname) ;; 如果函数有示例代码，则运行示例 ;; 调用示例 (require 'ui:confirm1) ;; 加载用户确认对话框函数 (ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

test:assert-equal

说明:断言两个值相等，支持浮点数容差比较

用法:

 (test:assert-equal expected actual fuzz)

参数:1 expected : 未识别定义;2 actual : 未识别定义;3 fuzz : 容差;

返回值:参数: expected - 期望值；actual - 实际值；fuzz - 浮点数比较的容差（数字和列表中的浮点数元素）

示例:

返回: t 或 nil

(defun test:assert-equal (expected actual fuzz)
  "断言两个值相等，支持浮点数容差比较"
  "参数: expected - 期望值；actual - 实际值；fuzz - 浮点数比较的容差（数字和列表中的浮点数元素）"
  "返回: t 或 nil"
  "说明: 数字使用 equal 加容差比较；列表使用 list:equal 递归比较；其他类型直接使用 equal"
  "示例: (test:assert-equal 3.14 3.14159 0.01)
  => t"
  "示例: (test:assert-equal '(1.0 2.0)
    '(1.0 2.0)
    1e-6)
  => t"
  (cond ((and (numberp expected)
        (numberp actual))
      (equal expected actual fuzz))
    ((and (listp expected)
        (listp actual))
      (list:equal expected actual fuzz))
    (t (equal expected actual))))
(defun test:assert-equal (expected actual fuzz)
  "断言两个值相等，支持浮点数容差比较"
  "参数: expected - 期望值；actual - 实际值；fuzz - 浮点数比较的容差（数字和列表中的浮点数元素）"
  "返回: t 或 nil"
  "说明: 数字使用 equal 加容差比较；列表使用 list:equal 递归比较；其他类型直接使用 equal"
  "示例: (test:assert-equal 3.14 3.14159 0.01)
  => t"
  "示例: (test:assert-equal '(1.0 2.0)
    '(1.0 2.0)
    1e-6)
  => t"
  (cond ((and (numberp expected)
        (numberp actual))
      (equal expected actual fuzz))
    ((and (listp expected)
        (listp actual))
      (list:equal expected actual fuzz))
    (t (equal expected actual))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

test:assert-equal

上传记录