需要一段废代码，师傅们给一点。

rocking2008

wowan1314 发表于 2019-12-25 15:36
(REPEAT 13140000 (SETQ LST (CONS 1314 LST)))
把这个运行结果的表 放到lsp里面 应该差不多！

直接把电脑给运行死机了。

rocking2008

zhang007 发表于 2019-12-25 08:42
前面再加一个永远也不会出现的条件，比如：
（setq t 1）
(if (/= t 1)

试了一下，princ后面字稍微多不些，几百字就提示    错误: 输入的字符串太长

rocking2008

zhang007 发表于 2019-12-25 08:42
前面再加一个永远也不会出现的条件，比如：
（setq t 1）
(if (/= t 1)

并且还有一个问题，lsp做了3.5M，打包成VLX后变成了73kB。

mikewolf2k

rocking2008 发表于 2019-12-26 10:49
试了一下，princ后面字稍微多不些，几百字就提示    错误: 输入的字符串太长

一行太长，不会写多行么？

rocking2008

mikewolf2k 发表于 2019-12-26 11:05
一行太长，不会写多行么？

lsp做了3.5M，打包成VLX后变成了73kB

mikewolf2k

rocking2008 发表于 2019-12-26 14:56
lsp做了3.5M，打包成VLX后变成了73kB

一个字符1byte，3.5M就要350万个字符，多行都这个数量级再说。

fl202

为什么你要用废代码，加大VLX的大小？

rocking2008

fl202 发表于 2019-12-26 17:28
为什么你要用废代码，加大VLX的大小？

个人需要将LSP文件大小和VLX文件大小做的差不多大。但是LSP里面所有注释内容，在VLX里面是没有，打包VLX时注释内容自动屏蔽掉了，VLX变得很小。

pengfei2010

大哥，这种低级问题也要问啊，你就随便加一个特别长的函数不就完事了 比如
(defun xxxxxxxxxxx ()
   (setq aa"此处可以10万字")
   (setq aa nil)

)

t18-13nil

奇葩需求，我是想小一点，运行快一点。